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When it comes to 
software, nobody’s perfect. 
But according to many of the 
experts, one word processing 
program is as close as you can 
get, No wonder it’s called 
WordPerfect, 

What are all the critics 
raving about? 

Simplicity. Most 
WordPerfect functions 
require only one keystroke, a 
simple press of a finger, So 
you can concentrate on 
writing, not programming. 

Speed, Because it is 
document- 


Reference Magazine 


soa See ed ee “iw LU) chase &? 











wait ; It’s the closest 
between WordPerfect i waa ae ‘\ thing to perfection, 
pages. No _ because it is easy, simple For more 
matter co le ? information, 

how fast ST Wass . = "see your dealer, 
you type, List Magazine Or call or write: 


WordPerfect won’t slow you 
down, 

Features, From writers to 
doctors, accountants to 
lawyers, WordPerfect has 
built-in special functions to 
meet a wide variety of specific 
needs, And at SSI, every day 
is spent upgrading and 
improving WordPerfect — 


eon , reaching for 


isn't flawless — 


oriented WordPerfect / perfection, 
instead of word processing software, | + Get your hands 


page-oriented, 
WordPerfect 


won't make you Digital Review 


but it comes very close 





on the critics’ 
~ choice, WordPerfect 





word processing from SSI, 


Cirele no, 84 on reader service card, 





SSI Software 

288 West Center Street 
Orem, Utah 84057 
Information: (801) 224-4000 
Order Desk: 1-800-321-4566, 
Toll-free 


Reaching for perfection. 











ALA 


Make Whitesmiths, Ltd. Part 
of Your 1985 Software Strategy. 


For six years, software developers and systems integrators have looked to Whitesmiths, Ltd. 
for technologically superior compilers and multi-tasking operating systems. 


Before you make your next move, contact Whitesmiths, Ltd. 


Whitesmiths, Ltd. 

97 Lowell Road 

Concord, MA 01742 

TLX 951708 SOFTWARE CNCM. 


(617)369-8499 


Whitesmiths, Ltd. 


DISTRIBUTORS: Australia, Fawnray Pty. Ltd., Hurstville, (612) 570-6100; Japan Advanced 
Data Controls Corp., Chiyoda-ku, Tokyo (03) 263-0383; United Kingdom, Real Time Systems, 
Douglas, Isle of Man 0624-26021; Sweden, Unisoft A.B., Goteborg, 31-125810. 
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NO GUTS, 
NO GLORY. 





Parallel port included. Standard 
interface for popular printers. 


Five full-length expansion slots 
for IBM PC/XT compatible option 
cards. Hard disk machine with 
640K, real time clock, three I/O 
ports and display has two 

slots free. 


Small overall dimensions, sturdy 
metal case, designed inside and out 
with horizontal or vertical opera- 
tion in mind. 


ROM BIOS AND MONITOR by 
ITT: Interrupt compatible with 
IBM PC/XT and more. Ever- 
ready menu-driven, diagnos- 
tic monitor debugger. Test 
hardware device by device 
and channel by channel. 
Examine registers, alter or 
dump memory, read or write 
tracks and sectors. Even set 
drive timing. 


256K byte, parity-checked 
RAM on planar board. 
Combo board with one, two 
and three banks of 128K 
bytes each. Real time clock 
and parallel port also avail- 
able to give 640K RAM 

total with only one slot used. 


Pop the rugged metal case 
onthe new ITT XTRA..Personal 
Computer and you'll find 
what thousands of our per- 
sonal computer users Across 
the country have already 
discovered. 

The beauty of the ITT 
XTRA Personal Computer 
is definitely more 
« “© than skin deep. 

In fact, it runs all the way 













Monitor conveniently 
tilts and swivels. Green, 


amber or color. Threee Own fo the very last pOwer 
position keyboard. Our ‘ . 
very own, fully- supply winding. 


supported ITT Mouse. 


This is one of the most 
cleanly designed, most extraordinarily sim- 
ple machines to come along in quite awhile. 


HELPING AMERICA WORK SMART. 




























Serial (RS-232) communications port 
built in. Console I/O may be redirected 
i, to this port by switch setting. Menu- 
driven DOS utility (set up) to configure 
this port or redirect printer I/O to it. 
Communications program included. 


ITT’s own heavy duty, high effi- 
ciency, switching power supply 
(115 watts continuous service) 
TE saves weight without compromis- 
ing support for fully-equipped 
machines. 95 to 132 volts or 180 

to 240 volts. 


—— Switch controls allow console I/O 
~ *4 redirection to serial port — use 
whatever ASCII terminal you want. 
Enable/disable power-on 
memory test for faster starts on 
large machines. Enable/disable 
; screen-saving blanking when 
a left idle. 


Floppy disk controller on 
planar. Saves a slot. 


Space-saving half-height 
disk drives. 





We modestly consider it the finest personal 
computer compatible on the market. 

An example. Where IBM has BIOS sup- 
port routines for its BASIC, we have a ROM 
monitor and diagnostics utility that's always 
available, provides direct disk access and 
isolates problems right down to the chip 
level. 

It's a finely crafted, expertly engineered 
machine that's predictable, reliable and a 
pleasure to use. 





We've taken great 
pains to provide all 
the right guts. 
We leave all the 
glory to you. PERSONAL COMPUTERS 


IBM PC and XT are registered trademarks of International Business Machines. 





For more information, or the location of your nearest ITT authorized dealer, call 1-800-321-9872. 
© 1984, ITT Information Systems 
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- ALL AT ONCE! 


AND NEVER A “LOCKED OUT” USER! 


Apex Industries Customer Data ° 


Customer Id: Acme 
Customer Name: Acme !ndustries 
Credit Rating: AA Credit Limit: 25000 


Current Balance: 12500 
4000 


30 Day Balance: 
1500 


60 Day Balance: - 
0 
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Address: 2701 South Bayshore Drive 

City: Miami State: FL Zip: 33133 
Salle) eltale fs 

Address: 913 Majorca Avenue 

071 6¥ou Oto) ¢- | RCT-]0)(-t-tame~) ¢- (gf M4] OM KRY 

Phone: 305-856-7503 Contact: Gerald Green 





DataFlex is the only application development __ takes to actually write it to the file! The updated 
database which automatically gives you true record is then immediately available. The 
multi-user capabilities. Other systems can lock number of users who can access, and change, 
you out of records or entire files for the full records at the same time is limited only by 
time they are being used by someone else. the number of terminals on your system or 
DataFlex, however, locks only the databeing —_ network. Call or write today for all the details 
on DataFlex...the true multi-user database. 


changed, and only during the micro-seconds it 


DATAF i= 


DATA ACCESS CORPORATION 
8525 SW 129 Terrace, Miami, FL 33156 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 
See us at Comdex Booth 3349 


Compatible with CP/M-80, MSDOS networks, MP/M-86, Novell Sharenet, PC-Net, DMS Hi-net, TurboDOS multi-user, Molecular 
N-Star, Televideo MmmOST, Action DPC/OS, IBM PC w/Corvus, OMNINET, 3Com EtherSeries and Micromation M/NET. 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. 


Circle no. 29 on reader service card. 


z 


4 





Dr. Dobb's Journal 


Editorial 


Editor-in-Chief 
Managing Editor 
Assistant Editor 
Contributing Editors 


Copy Editors 
Typesetter 
Editorial Intern 


Michael Swaine 
Randy Sutherland 
Frank DeRose 
Robert Blum, 

Dave Cortesi, 

Ray Duncan, 
Anthony Skjellum, 
Michael Wiesenberg 


Polly Koch, Cindy Martin 


Jean Aring 
Mark Johnson 


Production 


Design /Production 
Director 

Art Director 
Production Assistant 
Cover 


Detta Penna 
Shelley Rae Doeden 
Alida Hinton 
William Cone 





Advertising 
Advertising Director Stephen Friedman 
Advertising Sales Walter Andrzejewski, 
Shawn Horst 
Beth Dudas 
Advertising Coordinators Alison Milne, 
Lisa Boudreau 


Circulation 
Circulation and 
Promotions Director Beatrice Blatteis 
Fulfillment Manager Stephanie Barber 
Direct Response 
Coordinator Maureen Snee 
Promotions Coordinator Jane Sharninghouse 
Circulation Assistant Kathleen Boyd 


M&T Publishing, Inc. 


Chairman of the Board Otmar Weber 
Director C.F. von Quadt 
President Laird Foshay 


Entire contents copyright © 1984 by M&T Publishing, 
Inc. unless otherwise noted on specific articles. All 
rights reserved. 


Dr. Dobb’s Journal (USPS 307690) is published 
monthly by M&T Publishing, Inc., 2464 Embarcadero 
Way, Palo Alto, CA 94303, (415) 424-0600. Second 
class postage paid at Palo Alto and at additional entry 
points. 


Address correction requested. Postmaster: Send Form 
3579 to Dr. Dobb’s Journal, 2464 Embarcadero 
Way, Palo Alto, CA 94303. ISSN 0278-6508 


Subscription Rates: $25 per year within the United 
States, $44 for first class to Canada and Mexico, $62 
for airmail to other countries. Payment must be in U.S. 
Dollars, drawn on a U.S. Bank. 


Contributing Subscribers: Christine Bell, W.D. 
Rausch, DeWitt S. Brown, Burks A. Smith, Robert C. 
Luckey, Transdata Corp., Mark Ketter, Friden Mail- 
ing Equipment, Frank Lawyer, Rodney Black, Kenneth 
Drexler, Real Paquin, Ed Malin, John Saylor Jr., Ted 
A. Reuss III, InfoWorld, Stan Veit, Western Material 
Control, S.P. Kennedy, John Hatch, Richard Jorgen- 
sen, John Boak, Bill Spees, R.B. Sutton. Lifetime 
Subscribers: Michael S. Zick, F. Kirk. 


Foreign Distributors: ASCII Publishing, Inc. (Ja- 
pan), Computer Services (Australia), Computer Store 
(New Zealand), Computercollectief (Nederland), Ho- 
mecomputer Vertriebs GMBH (West Germany), In- 
ternational Presse (West Germany), La Nacelle Book- 
store (France), McGill’s News Agency PTY LTD 
(Australia), Progresco (France). 


People’s Computer Company 


Dr. Dobb’s Journal is published by M&T Publishing, 
Inc. under license from People’s Computer Company, 
2682 Bishop Dr., Suite 107, San Ramon, CA 94583, a 
non-profit, educational corporation. 


January 1985 
Volume 10, Issue 1 


Newcomers 

We are fortunate to have found a part time technical editor in Alex Ragen, a 
senior systems analyst and project leader at Tandem Computers, Inc. Alex’s 
extensive programming experience and writing ability help us to ensure the accu- 
racy and readability of the editorial content of DDJ. Another newcomer is Frank 
DeRose, assistant editor. Frank is an experienced writer and teacher. He was 
using the Unix system at U.C. Berkeley to compose his dissertation before we 
lured him away from academia to assist the Doctor. 


This Month’s Cover 


William Cone, this month’s cover artist, used a Macintosh drawing with under- 
painting in gouache and acrylic to depict this hungry Mac. 


This Month’s Referees 
Robert Blum, Contributing Editor 
David Cortesi, Resident Intern 
Thom Hogan, Editor-in-Chief, Business Software 


Mac Addendum 
This arrived too late to make it into the ““Fat Mac” article. If you have the newer 
128K motherboard, when you get to page 20 you will need to follow these in- 
structions to install the memory select logic. 


1) Cut and remove jumper W1 (marked 128K only) located at G14 (see photo 
on this page) 

2) Install and solder two 2.2K 4 w resistors at locations R40 and R41 

3) Install and solder a 47 ohm % w resistor at location R42 

4) Install and solder a .luf capacitor at location C51 

5) Install a 74AS253N IC into the socket at location G13 

6) Check the motherboard for any solder splashes, or broken etch. Clean the 
board with alcohol or a TG degreaser to remove any flux left after soldering 
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Fatten Your Mac 
by Thomas Lafleur and Susan Raab 
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Step by step instructions to increase the RAM ina 
Macintosh to 512K; diagrams, photographs, and warnings 
are included (Reader Ballot No. 191) 


QuickDraw Meets ImageWriter 26 How QuickDraw stores graphics and how ImageWriter 
by Thom Mayer prints graphics (Reader Ballot No. 192) 
Archiving Files with CP/M 80 and CP/M 86 _ 36s A utility that determines which files on a disk have been 
by lan E. Ashdown changed and automatically backs them up (Reader Ballot 
No. 193) 
MBOOT and MODEM for the C-64’s CP/M = 62 All you need to download CP/M software (Reader Ballot 
by Walt Piotrowski No. 194) 
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Introduction 
by Richard Wilton 
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the power failure darken or the rain dampen my spirits. From the cheerful 

arguments going on around me as we stood dripping in line outside the dining 
hall, I gathered that others shared my enthusiasm. The organizers of the Hack- 
ers’ Conference had brought a hundred-odd insanely great programmers and a 
few writers to this isolated stretch of Marin headlands to discuss the future of the 
hacker ethic, and discuss the future of the hacker ethic we would; the weather 
was irrelevant. 

The first session dispelled any illusion that we would find consensus on the 
meaning of the hacker ethic, outside of its having something to do with program- 
ming for the joy of it, and nothing to do with breaking into systems. There was a 
wide span of opinion about the commercial aspect of software development, from 
the belief that all software should be free to a what-the-traffic-will-bear attitude. 
Bill Atkinson, admitting that he wanted his QuickDraw routines for the Mac to 
remain proprietary for a while, looked uneasy when Lee Felsenstein encouraged 
the attendees to develop, in anarchic concert, a reverse-engineered, non-propri- 
etary Hackers’ Mac. Bob Wallace, whose shareware pay-if-you-like-it plan for 
PC Write was keeping food on his table, seemed amused by the debate. But there 
was consensus on several significant points: that hacking was worthy in and of 
itself, that the attendees ought to stay in communication with one another and 
that it was important to pass the torch to the next generation of hackers. That 
those present shared something worthy of passing on to others. At the end of the 
conference I walked out to the ocean and stood on the rocks above the surf, 
savoring the newfound sense of rational community, as though I had been 
through a Woodstock for grownups. 

Three days later, in Las Vegas, cesspool of the American spirit, I stop midaisle 
to consult my Comdex program, but a heavy diet of suites has thickened my 
discriminative faculties until all the booths look alike, nor does the program 
identify the players, 80 thousand jaded innocents flown in from the undifferenti- 
ated heartland to dance the shuck and jive in tight suits, unsensible shoes, flat 
borrowed jargon. There are, an anonymous passerby pontificates as I pore 
through the program book, some Interesting Products here this year, though 
Nothing Revolutionary; this passing summary strikes me as the true smug theme 
of this year’s Comdex. Some fashion war has been won, it seems: the pros, the 
working press, the veterans, having traded in last year’s cynicism for smartmoney 
conservatism, even the quest for innovation now out of style, pose midaisle, sniff- 
ing out the Interesting Products. 

One area still open to innovation, I suggest hopefully that evening in some 
smoky Comdex suite, is software marketing; I’m thinking of shareware, and Bob 
Wallace, who seems to be everywhere, smiles. The next day I meet Ramon 
Zamora midaisle in the MGM Grand and he explains that his new company is 
soliciting grant money to develop shareware, adding that “we call it ‘public 
sector’ software.”’ 

In another suite Lee Felsenstein elaborates on the philosophy behind the 
Hackers’ Mac. It is a mistake to think of it as a product, he explains; it’s a 
tendency; an appeal to the hobbyist willingness to try things out for no reward 
but the chance to learn. I promise to mention the idea in Dr. Dobb’s. 

Back in the office, I check with Randy on the update to the fatten-your-Mac 
article and the status of our in-house public-domain software bulletin board. 
Return a call from Bob Albrecht, who’s excited about some plan to lure kids into 
programming in C. Read in Business Week that Steve Jobs thinks “[i]f Apple 


falters, innovation will cease.’ And smile. 
VA leat Suciaie 


Michael Swaine 


| ’d been looking forward to this conference for months and wasn’t about to let 
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Imagine 
dBASE HI" 
running up 
to 20 times 


faster: 


The time 
for Clipper 


has arrvwed. 








Time is your most 
valuable commodity. 
Because how you 
spend your time, is how 
you live your life. 

At Nantucket, we 
om OUMSNOLULOM INS 
life to the fullest. 

Clipper, the first true 


- compiler for dBASE 


[Il'" is a timely exam- 
ple. Now, dBASE com- 
piled by Clipper runs 2 
OMURSEE MULT 
dBASE with its stan- 
dard interpreter. 

AMO] eyate lam al (eld ¢)ielle 
painstakingly checks 
and executes your 
Source code one line at 


20456 Pacific Coast Hwy., Malibu, Ca. 90265 


Clipper introduces you to the time of your life 


a time, every time you 
run.a program. With 
Clipper, once you've 
debugged your source 
code, it’s compiled into 
more efficient machine 
code. Your program 
runs without the time- 
OLO)ATSIUIANTIANOMO\ 1A Alers(@Me)} 
redundant translation. 
Clipper compiles all 
NOUIMA UNO RUNOMIUILUI(S 
dBASE III programs. 
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Developing a com: Then go make the 
piler for dBASE II was (fost of your life time. 
just a matter of time. 

OF IIAVOUlmelerel cimelmelllf 
toll free 800 number 
and ask for Clipper. 


qt" 


Nantucket 


(800) 556-1234 ext. 225. In California (800) 441-2345 ext: 225 


dBASE Ill is a registered trademark of Ashton-late 


LETTERS 


Spleen Ventilations 


Dear Dr. Dobb's, 

One very annoying thing that has come 
up recently is the holy war involving 
computer languages. It was never 


more apparent than in your October 


1984 issue in the column “The Soft- 
ware Designer.’’ Typical were the 
statements of Philippe Kahn, who was 
quoted as saying “‘C is a disease,” and 
‘When I see people writing spread- 
sheets in C, I think ‘They’re out of 
their minds.’ It was designed to write 
operating systems,” and “In Europe C 
is considered an American disease.” 

Really? C is a disease? How? Why 
does the fact that C’s first job was op- 
erating systems disqualify it from 
spreadsheets? Forth was originally 
written to manipulate radio receivers. 
Does this mean that Dr. Dobb’s should 
have rejected the article that demon- 
strated using Forth for the Fast Fouri- 
er Transform? Al// of Europe hates C? 
There hasn’t been that much unanim- 
ity since WWII. 

Now it may be true that C has some 
fatal flaw that will doom it to die, dino- 
saur-like, in some tar pit of abandoned 
operating systems. But Kahn certainly 
hasn’t demonstrated it, and he has 
merely made himself look foolish by 
making statements that have no corre- 
lation with his thesis. And the sad 
thing is that he is not the only person 
doing this. 

One of the most irresponsible state- 
ments I have ever read was that of 
Edsger W. Dijkstra, in his ““How Do 
We Tell Truths That Might Hurt?” It 
read: “It is practically impossible to 
teach good programming to students 
who have had prior exposure to BASIC: 
as potential programmers they are 
mentally mutilated beyond hope of 
regeneration.” 

Now, this is patently untrue—some 
of the best programmers I know start- 
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ed out self-taught in BASIC and write 
very clear, structured code. What I as- 
sume he meant, in all that rhetoric, 
was “BASIC is not a good program- 
ming language’’—which is true in my 
opinion. But look at that quote again. 
Ill wager that there were hundreds of 
mediocre computer science teachers 
who leapt for joy when they read that. 
BASIC is implemented on almost every 
system, which means that it is hard to 
avoid coming across it and learning it. 
Having a hard time teaching that stu- 
dent certain programming practices? 
Well, he must have learned some BA- 
SI1C—must be he’s mentally mutilated. 
Might as well give up on him; he’ll only 
flunk anyway. 

If all we get are diatribes and spleen 
ventilations, what chance is there for 
the future of program language de- 
sign? When a computer scientist mere- 
ly rants instead of reasons, how seri- 
ously can one take claims of the 
designers of a new langauge? 

It is incredibly annoying reading 
such nonsense because there are valid 
and rational reasons for not using a 
programming language. I personally 
will not use Forth, because I do not like 
reverse Polish notation, and because it 
is too close to assembly language for 
me to be comfortable with it. But I cer- 
tainly will not condemn those who use 
it, and if they write good, efficient pro- 
grams with it, more power to them. 

Perhaps DDJ could run a series of 
interviews with software designers, 
discussing what language they use and 
emphasizing the positive. It might let 
people see more clearly just what they 
might be missing. 

Thank you for a very interesting 
magazine. 


John M. Gamble 
4471 Eastwood Dr. 
#18103 

Batavia, OH 45103 





grep.c 


Dear DDJ, 

Thanks for your wonderful public do- 
main contribution of grep.c in the Oc- 
tober issue. It has become a well-worn 
tool in my MSDOS 2.0 programming 
toolbox. There was an error in the pro- 
gram listing that you might warn your 
readers about to avoid many hours of 
“bug” hunting. At the middle of page 
61 there is a call to omatch contained 
in a while statement passing only two 
parameters when three are required. 
The line should be: 


while ( *lin & & omatch( &lin, 
pat, boln) ) 


Thanks again for the grep.c utility. 
Sincerely, 
Michael H. Cox 
3659 Gas Light Curve #5 
Montgomery, AL 36116 


Dear DDJ: 
It was with interest in learning more 
about structures and pointers in C that 
I studied Allen Holub’s article on 
grep.c in the October 1984 issue. Per- 
haps you would be interested in know- 
ing about an error in Listing Two, page 
64. In the while loop of the dodash 
module there is a Boolean test on 
whether dstart — dest < maxccl. The 
last statement of the module is return 
(dest—dstart);. Can you tell that one of 
these is out of order? It turns out that 
if the former expression is adjusted to 
read dest — dstart < maxccl, then do- 
dash will not try to expand a character 
class to more than maxccl characters. 
You might think this bug is innocu- 
ous, but with my particular setup, this 
turns out to be fatal to the expansion of 
sets, like [a—e], to character classes, 
like [abcde]. I think what’s happening 
is that my compiler sees the pointers 
dstart and dest as unsigned, so that 
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when they are out of order the differ- 
ence becomes a large unsigned value 
instead of a small signed value. This 
makes the while stop after the first 
pass! For the record, I use CI C86 on 
an IBM PC. 

Signed, 

Scott D. Thomas 

354 Colorado Avenue 

Palo Alto, CA 94306 


Complex Numbers 


Dear DDJ: 

After publication of my article “Sim- 
ple Calculations with Complex Num- 
bers” in the October 1984 issue of 
DDJ, Mr. Alan Tracht of Cleveland 
Heights, OH, noticed problems with 
the routine Polar. For certain argu- 
ments, it would return incorrect re- 
sults. He was kind enough to call me 
with suggestions for correcting the er- 
rors and also told me about a less cum- 
bersome method for preventing float- 
ing-point underflow and overflow. A 
section of the revised program is pre- 
sented in the Listing (page 10). 

The CONSTANT section in the list- 
ing is a slightly revised version of the 
constants from the implementation 
section of Listing One in the original 
article. The new version of Polar is 
much simpler since it passes on most of 
the hard work to a new FUNCTION 
called ATan2. This function is a Pascal 
counterpart to a function found in 
most Fortran libraries. It takes two ar- 
guments, the first a dividend and the 
second a divisor, and returns the arc- 
tangent of the quotient. Because of the 
extra information inherent in the two 
arguments, the ATan2 function can 
correctly handle right angles and de- 
termine the correct quadrant of the re- 
sult. It is tailor made for conversions to 
polar coordinates. 

During testing of the new function, I 
discovered that the UCSD version of 
ATan is not quite as “bullet-proof” as I 
had thought. It was necessary to add 
some protection for that function as 
noted in the listing. Such extra protec- 
tion was not needed by Turbo Pascal or 
any of the C or Fortran compilers I 
used to check the new ATan2 
algorithm. 

The ATan2 function calls another 
new function, SafeDivide, which at- 
tempts to divide its first argument by 
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Squeezing 
A Large Program Into 
A Small Memory Spacer 





It's time you got Plink86!™ the 
overlay linkage editor that’s 
bringing modular programming 
to Intel 8086-based micros. 

With Plink86* you can write a 
program as large and complex 
as you want and not worry about 
whether it will fit within available 
memory constraints. You can 
divide your program into any 
number of tree-structured over- 
lay areas. 4095 by 32 deep. 
Work on modules individually. 
Then link them into executable 
files. All without making changes 
to your source program 
modules. 

Use the same module in dif- 
ferent programs. Experiment 
with changes to the overlay 
structure of an existing program. 
Use one overlay to access code 








and data in other overlays. 

Plink86 is a two-pass linkage 
editor that links modules cre- 
ated by the Microsoft assembler 
or any of Microsoft's 8086 com- 
pilers. Plink86 also works with 
other popular languages, like 
Lattice C, C86, or mbp/COBOL. 
And supports symbolic debug- 
ging with Phoenix’ Pfix86 Plus™ 

Plink86 includes its own ob- 
ject module library manager — 
Plib86™ — that lets you build 
libraries from scratch. Add or 
delete modules from existing 
libraries... Merge libraries... 

Or produce cross-reference 
listings. 

Why squeeze any more than 
you have to? Plink86 by Phoenix. 
$395. Call (800) 344-7200, 
or write. 





Phoenix Computer Products Corporation 
1416 Providence Highway, Suite 220 

Norwood, MA 02062 
In Massachusetts (617) 762-5030 


*Plink86 will run under PC DOS, MS-DOS™ or CP/M™-86. 


Plink86, Pfix86 Plus and Plib86 are trademarks of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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the second. This function employs the 
overflow and underflow checking 
method suggested by Mr. Tracht. It is 
much less expensive in terms of execu- 
tion time than the original, which 
made calls to the natural logarithm 
function. If anyone has an allergic re- 
action to the GOTOs, they can be re- 
placed by a copy of the division state- 
ment that they jump to. It just takes 
more space and is redundant. 


Finally, I noticed a typographical 
error I made in the text of the article. 
In equation 6 on page 31, the calcula- 
tion of the amplitude is given as taking 
the arctangent of the real coefficient 
divided by the imaginary coefficient. 
In fact, one must take the arctangent 
of the imaginary coefficient divided by 
the real coefficient. The order of the 
dividend and divisor in the original 
(and new) listing is correct, however. 


Let f ers Lis ting (Text begins on page 8) 


CONST MAX REAL 


9. 99999999999999999999E+37 ; 


I hope the erroneous Polar routine 
did not greatly inconvenience anyone. 
I would also like to thank Mr. Tracht 
for his helpful suggestions. 

Sincerely, 

David D. Clark 

246 S. Fraser St. #2 
State College, PA 16801 
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PI = 3,1415926535897 9323846; a Re 

PI_OVER_2 = 1.5707 963267 9489661923; + i/2.0-) 

BIG SQRT = 1.0E+19; { Sqrt(MAX_REAL) } 
CLOSEST = 1.0E-19; { Sqrt(MIN_ REAL) } 


FUNCTION SafeDivide(x, y : 


Real) 


>: Real; 


{ divide x by y and intercept incipient underflow or overflow } 


LABEL 1; 


BEGIN { SafeDivide } 
IF Abs(y) < 1.0 THEN 


{ overflow possible } 


IF Abs(x) > Abs(y)*MAX_REAL THEN 


SafeDivide 
ELSE 
GOTO 1 
ELSE IF Abs(x) < 1.0 THEN 


:= MAX REAL { 


catch overflow } 


{ underflow possible } 


IF Abs(y) > Abs(x)*MAX_REAL THEN 


SafeDivide := 0.0 
ELSE 
GOTO l 
ELSE 
1; SafeDivide := x/y 


END { of SafeDivide }; 


FUNCTION ATan2(x, y : Real) 


{ catch underflow } 


{ a normal calculation } 


> Real; 


{ take arctangent of x/y and account for right angles and proper quadrant } 


VAR a : Real; 
BEGIN { ATan2 } 
IF y = 0.0 THEN 
IF x = 0.0 THEN 


a := 0.0 
ELSE 
a := PI_OVER 2 
ELSE BEGIN 


a := SafeDivide(x, y); 
IF a >= MAX REAL THEN 

a := PI OVER 2 
ELSE BEGIN 


{ check for exceptional cases with y = 0 } 
{ if both arguments are zero, return zero } 


{ otherwise it’s a right angle } 


{ try the divide, preventing unseemly errors } 
{ probably tried to overflow } 


IF a <> 0.0 THEN BEGIN 
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{ kludge to protect UCSD ATan } 
a := Abs(a); 
IF a > BIG SQRT THEN 

a := PI OVER 


ELSE IF a < CLOSEST THEN 
a := 0.0 
ELSE 
a := ATan(a); 
END; 
IF y < 0.0 THEN { choose upper or lower half of plane } 
a t= PI= a 
END 
END; 
IF x < 0.0 THEN { choose left or right half of plane } 
a i= -a; 
ATan2 :=a 


END { of ATan2 }; 


PROCEDURE Polar{Arg: Complex; VAR Modulus, Amplitude: 


BEGIN { Polar } 
WITH Arg DO BEGIN 
IF Abs(Re) < CLOSEST THEN 


Re := 0.0; 
IF Abs(Im) < CLOSEST THEN 
Im := 0.0; 


Modulus := Sqrt(Sqr(Re) + Sqr(Im)); 
Amplitude := ATan2(Im, Re) 
END { of WITH Arg } 
END { of Polar }; 


Real}; 


End Listing 


(MULLEN S-100: geal TOE wor'? CONTROLLER 





iCB-10 CONTROLLER BOARD 
$219, assembled and tested. 


MULLEN S-100: 










This 8 channel digital 1/O controller can monitor inputs and control 
outputs. It features an easy to read manual that has schematics, compo- 
nent list, and programming examples as well as provocative insights on 
potential applications. 


Examples of applications are included in a reprinted article that demon- 
strates two MULLEN CONTROLLER BOARDS in an interactive system 
that: feeds a cat; irrigates a garden dependent on soil moisture; closes 
the window when it rains; controls the thermostat for optimum comfort; 
controls appliances, lights, security system, and weather monitoring 
station (logging temperature, wind speed and direction, and graphing 
pollution content of the atmosphere.) Solenoids, microswitches, pneu- 
matic actuators, pH sensors, and other devices are used in this system. 


cupihad aging rt (2 ‘= r 


MULLEN COMPUTER PRODUCTS, INC. 


= AVAILABLE: 

ee. Priority One Electronics, 

EE RS Chatworth,CA ¢ (213) 709-5111 
TB-4a EXTENDER BOARD Nauthems CA + cqiovers-t70? 
The latest in our TB line, the most This debugger features Zero Inser- ames, 0 a 
widely used add-ons in the indus- tion Force edge connectors for Et Computer ——_ 786-9203 
try. Features logic probe, formed- easy board changes and long life. Hayward, A oe 
lead edge connectors, puise Expect 2,000 or more insertions Mullen Computer Products is the industrial distributer 
catcher switch and reset button. _ rather than the usual 300 to 400 —'°" Compubro®’s products. For more information, call Me 


with tension type connectors. 
$89, assembied and tested. $159, assembled and tested. 


Circle no. 52 on reader service card. 
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at (415) 783-2866 or write MCPI, 2260 American Ave., #1, 
Hayward, CA 94545. OEM sales available from factory. 


Prices are subject to change without notice. 
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DR. DOBB'S CLINIC 


by D. E. Cortesi 


The compiled and analyzed results of 
your throughput measurements aren’t 
quite ready for this January column as 
we promised. Next month. 


We C A Good Book 


A C Reference Manual, by Samuel P. 
Harbison and Guy L. Steele, Jr. (Pren- 
tice-Hall, 1984; $19.95) was published 
just too late to be mentioned in the C 
Resource List of a few months back. 
That’s a pity because it is the best C 
resource we've come across yet. 

The book is just what its title implies: 
a complete, authoritative, and (so far as 
we can tell) accurate reference to the C 
language. It is beautifully organized, 
with many small topics grouped logical- 
ly into chapters. Each topic ends with a 
list in small type of all the other topics 
that are related to it, so that no matter 
where you start you can follow the 
threads of a concept throughout the 
book. Differences between C compilers 
are covered as they occur, matters of 
coding style and dangerous constructs 
are discussed, and there are many ex- 
amples, mostly illuminating. 

That it’s useful and accurate is a 
credit to its authors, but that the book is 
so thorough is the result of its genesis: 
the authors say it “grew out of our ef- 
fort to write a family of C compilers.” 
They found that, “ In spite of C’s popu- 
larity ... there was no description of C 
precise enough to guide us in designing 
the new compilers ... [and none] pre- 
cise enough for our programmer-cus- 
tomers, who would be using compilers 
that analyzed C programs more thor- 
oughly than was the custom.” So they 
compiled this one, and a good job they 
made of it. | 


Structured Search 


Deep in the code of the DIFF program 
(presented as a separate article in the 
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August DDJ), we posed a small prob- 
lem in structured programming. At 
heart, it was nothing more than the old 
“loop with two exits,’ a problem that 
you're sure to meet whenever you con- 
fine yourself to the fundamental control 
shapes permitted by structured design. 

In the context of that program, the 
problem went like this. A symbol table 
named ST (an array indexed from 0 to 
MaxSym-1) is being treated as a hash 
table to store Lines. Hash (Line) pro- 
duces the initial probe of the table for 
any Line. Whenever we probe an entry 
of the table, we encounter one of three 
results: 

(1) If ST[S].HashVal is negative, then 
entry S is free and the present Line 
may be installed in it. 

(2) If ST[S].HashVal equals Hash- 
(Line) and if ST[S].LineVal equals 
Line, then this Line has already been 
entered and S is its index. 

(3) Otherwise, some other Line is 
hashed to entry S, so we must try the 
next entry in succession, wrapping 
around at the end of the table. 

The problem fits awkwardly into 
conventional program structures be- 
cause the loop must terminate under ei- 
ther case (1) or case (2), but if it termi- 
nates under case (1) the new Line must 
be installed in ST[S]. In the original 
program (which was hacked together in 
a hurry), this was all done with Goto 
statements in an efficient but inelegant 
way. Several readers responded with re- 
written functions, and the variety of 
their solutions is interesting. 

Before looking at them, let’s look at 
a side issue. We stated the equality test 
in case (2) in two parts for perfor- 
mance reasons. It takes little time to 
compare two hash signatures (inte- 
gers). Different Lines, however, will 
occasionally hash to the same value, in 
which case (and only then) the slower 
test of comparing two variable-length 
strings is applied. In the published pro- 





gram, this was handled with a com- 
pound IF statement, 


if (ST[S].HashVal = H) 
and (ST[S].LineVal* = Line) 
thes 


Only Paul Sand of Dover, NH, no- 
ticed that such a statement is not good 
Pascal. “‘I want to bring to your atten- 
tion a portability bug,” he wrote. “The 
problem is that standard Pascal does 
not guarantee short-circuit evaluation 
of Boolean expressions. For example, 
in good old Apple Pascal, both tests 
will a/ways be done no matter what the 
outcome of the first test, slowing 
things down considerably. Other ver- 
sions of Pascal might do the tests in 
reverse order.” 

Sand is dead right. C promises to 
short-circuit the second (slower) rela- 
tion when the first test fails, and Ada 
offers the CAND (conditional and) op- 
erator for explicit control of the se- 
quence of tests. In Pascal, the only way 
to get the desired effect is to write: 


if ST[S].HashVal = H then 
if ST[S].LineVal* = Line then 


When you do, you end up duplicating 
code in the ELSE leg of the now dou- 
bled IF. 

Sand’s version of the search code 
(Listing One, page 17) is a straightfor- 


ward encoding of the specifications 


given above. An auxiliary Boolean 
variable, Done, is introduced to control 
the loop. Case (1) is handled as soon as 
it is discovered so that, on termination, 
cases (1) and (2) have been made 
identical. 

A. Salemma (our approximation 
from a handwritten signature) of 
Washington, DC, and Wayne Rivers 
of Springfield, VA, sent solutions 
much like Sand’s except that they used 
the more intuitive “Repeat ... Until 
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Hackers, rejoice! 


Finally, a 
programmable 
multi-window 
editor for 
MS-DOS: 


EMACS 


UniPress EMACS™ 
famed Gosling version. Multi-window, text editor with 
extensibility through the built-in MLISP programming 
language and macros. Dozens of source code MLISP 
functions; including C, Pascal and MLISP syntax checking. 
Run Lattice C or PSMake in the background and Emacs will 
point to any errors. EMACS now runs on TI-PC, IBM-PC AT, 

DEC RAINBOW or any MS-DOS machine. 


PsMake 

UNIX style ‘make’ utility, includes facilities for 
automatically rebuilding programs based on inter- 
dependencies of the modules. Includes rule scripts for 
many popular MS-DOS languages. Also includes many 
UNIX style tools (Is, cat, touch, etc). 


Lattice C 

‘the’ C compiler for the serious developer. Full C language 
producing the best code for the 8086 family. All models of 
8086 supported. Emacs, PsMake, and Phact all written 
using Lattice. 


Phact Isam 

multi-key ISAM for MS-DOS. Uses b + tree, and supports 
variable length records. Includes full Lattice linkable library 
and high-level functions. 


FULL SYSTEM (includes Emacs (object), PsMake, Phact 
Isam & Lattice C) — $1099, with EMACS source, $1699. 
STANDALONE: EMACS $375, with source $995. 

Lattice $425. PHACT $250. PSMAKE $159. One month 
EMACS trial $75. 


EMACS PRICE INCREASE FEB. 1 
BE SURE TO PLACE YOUR ORDER NOW! 


UniPress is a major publisher of Unix Software. 
Call or write for more information. 


UniPress Software, Inc. 


2025 Lincoln Highway, Edison, NJ 08817 

201-985-8000 ¢ Order Desk: 800-222-0550 (outside NJ) 
Telex: 709418 e Mastercard and Visa 

Japanese Distributor: SofTec Tel.: 0480 (85) 6565 

Lattice is a registered trademark of Lattice, Inc. UniPress Emacs and MLISP are 


trademarks of UniPress Software, Inc. MS-DOS is a trademark of Microsoft. Unix is a 
trademark of Bell Laboratories. 
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Done”’ structure instead of ‘“‘While 
Not Done Do.” 

It isn’t necessary to handle all three 
conditions inside the loop. Fred Mar- 
chand of Bellingham, WA, rewrote the 
program in C for his own uses, but his 
implementation of the symbol-search 
function translates back to Pascal as 
shown in Listing Two (page 17). The 
loop ends when either case (1) or case 
(2) is discovered. The special case (1), 
entry of a new symbol, is handled out- 


side the loop. _ 

Gary Dale of Toronto, Ontario, took 
an approach which is similar to Mar- 
chand’s but he made better use of Pas- 
cal’s treatment of Boolean data (Listing 
Three, page 17). He was the only one to 
use a Boolean expression to set the val- 
ue of the auxiliary variable. Dale made 
a number of other changes in the pro- 
gram, including implementing his own 
heap storage so that it could store more 
lines. 


INTRODUCING THE LATEST EN 
5 OCG) sO) OF-0 re han ta: 0) D1 OL ON BAYAU RAN ROlO) 5. 
FOR MICROCOMPUTER SOFTWARE 
DEVELOPERS AND PROGRAMMERS 


{SET} Tools — 


e Operate on most popular MS-DOS and CP/M systems. 
¢ Can be used with any source language. 

e Improve development productivity. 

e Provide assistance for the tedious task of maintenance. 


{SET:DIFS}™ Source File Comparator 


e Fast, smart and accurate 


e Use for regression testing, too 
e Difference display highlighting 


$139.00 


A/P/L Options available as add-ons to {SET:DIFS} to provide for minimized 


communications with the ADR or PanValet mainfrume librarians or with {SET }'s Batch 


Line Editor, {SET:LIKE}. $20.00 per option 


{SET:LIKE} add-on to {SET:DIFS}. $40.00 


{SET:GXREF}™ Cross Reference Utility 


$79.00 


e Supplied parameter files allow use of any source language 
e Cross references multiple files at once 


{SET:PATCH}™ Object File Editor 


$79.00 


e Quickly apply changes to any file type 
e Hexadecimal and ASCII display and change entry 
e Easy to use with cursor and function keys 


{SET:SCIL}™ Source Code Interactive Librarian $349.00 


e Maintains history of changes 


e Reduces storage by identifying differences from level to level 
e Provides control over concurrent development efforts by detecting 


overlapping changes 


PC-Demo Disk and Manual available for $35.00 


{SET} Tools are available individually or, better yet, 
select a combination of tools to meet your specific needs. 


Multiple copy discount available. 


{SET} 


Get {SET} for Success 
System Engineering Tools, Inc. 
645 Arroyo Drive + San Diego, CA 92103 


COD, Check with order, Master Card or VISA accepted. 


To order {SET} tools or for more information, call 


Svstem Engineering Tools, Inc. 





(619) 692-9464. 
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Ragged Patches 


No subject, it seems, inspires more 
imaginative, not to say panicky, adven- 
tures in typography than the program 
patch presented in a glossy magazine. 
In the past year, various PC-related 
magazines have carried articles on 
patching WordStar for this or that 
purpose as well as articles on patching 
other bits of MSDOS or PCDOS; each 
has used a different way of showing the 
necessary Debug commands. 

It’s just nerves, we think. The author 
knows that making a patch is a risky 
business; if it isn’t done just right, the 
results will be unpredictable (and, fair- 
ly or not, blamed on the author). So 
the author writes down exactly what is 
to be done, making up typographic 
conventions for ““‘what the computer 
will show” and ‘‘what the reader 
should enter” on the fly. 

The editors also know that patches 
are risky things that must be done just 
right—and that they haven’t the ex- 
pertise to tell which parts of the au- 
thor’s presentation are essential and 
which are decoration. So they change 
the author’s careful instructions as lit- 
tle as possible; this usually means fit- 
ting them to the Procrustean bed of a 
specific column width, reducing blanks 
and commas to proportionally spaced 
insignificance, changing the ASCII 
apostrophe to an inverted comma, and 
shrinking fat computer-printed aster- 
isks to eentsy specks above the line. 

What’s left is a nearly unreadable 
account of a hypothetical Debug ses- 
sion. Even if it were readable, it 
wouldn’t be relevant. Not everyone 
uses Debug; other debuggers, and 
other utilities for modifying disk files, 
are available. And some patches can be 
usefully made on the fly by another 
program. The problem with showing 
patches in terms of Debug operations 
is that it confuses the process with the 
desired results. All that is relevant 
about a patch is the address of the tar- 
get area, what’s in that area now, and 
what to change it to. You can put this 
data neatly in a three-column table. 

The Table on page 17 is an example. 
It shows a patch for ZDOS. version 2.13 
(MSDOS 2 for the Zenith 100 series). 
The patch corrects a tendency of serial 
output to drop characters. It appeared 
first in BUSS, The Independent News- 
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MASTER OF BUSINESS 
AUTOMATION. 


This certifies that 







has successfully completed the requirements for 
MASTER OF BUSINESS AUTOMATION 
by attending OAC ’85 at the Georgia World Congress Center. 
Atlanta, Georgia. 

Having visited the world’s largest exhibit and conference 
on Business Automation, the above named is an expert on 
the ways Business Automation can improve productivity, 
efficiency, and profitability, 
OAC °85 February 4-6, 1985 
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Attend OAC ’85, February 4-6. And master the 
Business Automation revolution. 


This is your only chance to see the largest, most extensive business automation exhibit and 
conference in the world. 
February 4-6, Georgia World Congress Center, Atlanta Georgia. 









See 150 major exhibitors including: 


Apple Computer Inc. Honeywell Information Systems 
AT&T Communications IBM Corporation 

AT&T Information Systems Lanier Business Products 

Bell South Services Minolta Corporation 

Bell & Howell McGraw Hill 

Burroughs Corporation NCR Corporation 

Data General NEC Information Systems, Inc. 
Dictaphone Corporation Radio Shack 

Digital Equipment Corporation Sperry 

Dupont Company Wang Laboratories 

Eastman Kodak Xerox Corporation 
Hewlett-Packard Co. 


Get in the forefront of the 
Business Automation 
revolution. Order your 

registration information now. 


Call 800-OAC-1985 


Fe Ao Dip aia ed © eR eRe eet 1 
| can’t afford to miss OAC ’85. Please! 
rush me my registration information. | 

















It’s office automation and much more: 
®@ Complete Conference Program with over 48 sessions in 6 



















































| 
| 
program tracks: Lohan ———. - | 
* organizational impact of technology ¢ office workstations | Title: | 
¢ ergonomics of the workplace ¢ networking applications ; | : r 
¢ communications technologies and issues | Company: | 
® productivity and requirements evaluation | sage fariee : | 
® Conference Keynote-Howard Anderson, Managing Director l Address: ‘ OAC | 
of the Yankee Group. 85 
@ 12 in-depth Professional Development Seminars | City: State: Zip: Sal ea | 
@ The latest in Automation, Communications and Integration, | Mail to: | 
rs Pdi es po tea pasa i x OAC 85 AFIPS 1899 Preston White Dr Reston, VA 22091 GI I 
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systems, and data base managers. 


How is portability achieved? CENGLISH through its compiler inter- 


face translates CENGLISH into documented 


C compiler to produce native machine code. 


CENGLISH 
SOURCE 


C source can be embedded in CENGUSH source. 
Differences in the operating system and data base manager are 


handled by the runtime libraries. 


The result is that CENGLISH source can be compiled without modi- 
fication on any micro or mini configuration supporting cCENGLISH. 


What about performance? cENGLISH executes FAST, just like any 


compiled C program. 


How easy is CENGLISH to use? While cENGLISH is a powerful high 
level language that can accommodate complex software develop- 
ment, it remains simple and straightforward to use. 


Call or write for availability of CENGLISH for the following configu- 


rations— 
Compilers: 


Standard O/S compilers: Lattice C™ for MS/DOS" 


Operati ng 
UNIX} 


Data Base Managers: 


Systems: 


C-ISAM”™ and INFORMIX> UNIFY,” ORACLEY PHACT,” Logix” 


age Versions: 


Foreign Langu 
cae Spanish 


German, 


Attention MS/DOS users. Demo version and special introductory offer 
available for IBM PC XT,” AT,” and other MS/DOS systems. 
Requirements: 256K, hard disk or two floppy disk drives, and 


MS/DOS 2.1 or higher. 


Attention dBASE Il and dBASE Ill users. dBASE II to CENGLISH 
Converter now available; dBASE III Converter available later this 
quarter. Converted code is portable to micros or minis and executes 


as fast as original CENGLISH source. 


GBASE II and GBASE Ill are trademarks of Ashton-Tate. Lattice is a trademark of Lattice, Inc. UNIX is a trademark of 
isa 






is a trodemark of Phact Associates. L Logix is 
Business Machines Corporation. UNIFY is a trademark of 
\m/.'/- 


a aos ' Inc. 


Cc ENGLISH. 
The C Generation 


What is CENGLISH? cENGLISH is a comprehensive fourth generation 
procedural language based on dBASE II” syntax. It is portable to a 
wide range of micros and minis. The language features user-trans- 
parent interfaces to a wide range of popular C compilers, operating 


EXECUTABLE 


NATIVE 
MACHINE CODE 





UNIX-like, MS/DOS;" Coherent; VMS" 


of Relational Database : 
shoreslesar ion canis Inc. IBM PC XT and AT are trademarks of International 
Unity 








SAMPLE CENGLISH PROGRAM 


IDENTIFICATIONS 
MODULE: Mininame 
AUTHOR: bcs 
DATE: 8/29/84 
REMARKS: Sample cENGLISH program that adds first 
names to a file 
END IDENTIFICATIONS 


C source and uses a host 


GLOBALS 
FIXED LENGTH 1 ans 
FIXED LENGTH 15 Fname 
END GLOBALS 


MAIN PROGRAM 


BEGIN 
CLEAR SCREEN 
SET ECHO OFF 


USE “NAMES” 
VIEW BY “ID__FNAME” ASCENDING 


AT 23,1 SAY “Add a record? Y or N” 
AT 23,25 ENTER ans USING “!” 


WHILE ans EQ “Y” 
CLEAR GETS 
AT 6,1 SAY “Enter first name” 
AT 6,20 GET Fname 
READ SCREEN 


INSERT 
Fname = Fname 
END INSERT 


AT 12,10 SAY “Welcome to CENGLISH”’ & Fname 
WAIT 


AT 14,10 SAY “HIT ANY KEY TO CONTINUE” 
STORE “ “TO Fname 
STORE“ “TOans 

AT 23,1 SAY “Add another record? Y or N” 
AT 23,30 ENTER ans USING “!” 

CLEAR ROW 1 THRU 23 


END WHILE 


AT 12, a SAY “That's all for now!” 
UNUSE “NAMES” 
SET ECHO ON 


END PROGRAM. 


~“N 





ol send further information. 


| Your Name Title 


Company Telephone 


Address 


| City State Zip 
Check one: (JEnd User {J System House (J) Dealer (J Distributor 
Send to: CLINE Inc., 20 West Ontario, Chi o, IL 60610-3809 
| Telex 516315 Phone (312)944-4510 
In Canada: CLINE Canada, Inc. Complexe La rOrunor 
5 St. Amable ae as 
Phone (418) 524-46 
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letter of Heath Co. Computers as a | Loop: 

column and a half of tortuous instruc- cp (hl) 

tions. The table ts clearer and less likely ret Z 

to lead to error. It informs the reader rl E 

what is to be changed, but leaves the djnz Loop 

how of the change unspecified. ld LO 
(Charles Floto’s BUSS, incidentally, ret 


is a valuable resource for anyone who 
owns Heath hardware. It costs $28 for a 
year of 20 gossip- and bargain-filled is- | py 
sues; call (202) 544-0900 to subscribe. ) 

1000:1E32 


Wot Duzzit Dew? 


David S. Tilton sent us the following 
sequence of Z80 assembly code. It’s an 
absolutely astonishing implementation 
of... but you can figure it out. Unfor- 
tunately, it requires such narrowly de- 
fined conditions that it’s probably use- 
less, despite being the fastest one of its 
kind. What does it do, and what are its 
narrow requirements for utility? 
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Listing One. 
Structured hash-table search by Paul Sand 


h := hash(Line); 
S := h mod MaxSym; 
done := FALSE; 


While not done do 
if (ST{s].HashVal < 0) then begin 
with ST{s] do begin 


hashval “:=:h; 
new(LineVal) ; 
LineVal~ := Line 
end; 
done := TRUE 
end 
else 
if ST{s].HashVal = h then 
if ST{s].LineVal” = Line then 
done := TRUE 
else 
s := (s + 1) mod MaxSym 
else 
s := (s + 1) mod MaxSym; 
store := 8s; { result } 


End Listing One 


Listing Two. 
Structured hash-table search by Fred Marchand 
h := Hash(Line); 


Ss := h mod MaxSym; 
found 3= FALSE; 


while (ST{s].HashVal > 0) and (not found) do 
if (ST{s].HashVal = h) and 


Dr. Dobb's Journal, January 1985 


1000:1E47 : Le - 


1000:1£91 - a 
1000:1EA6 





Might there be a way to use this gim- 
mick in another architecture (e.g., 
8086, 68000) to get the same result 
with more flexibility? DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 


Load IO.SYS with the debug command: L 1000:0 0 A 20 


rine... 
MOVE AH,AL 


POP BX 
MOV AL,AH 


MOV AH,AL 
POP BX 
MOV AL,AH 


Replace . 
MOV BH,AL 


MOV AL,BH 
POP BX 


MOVEHAL. = 
MOV AL,BH | 
POP BX 





Table 


A a to ‘the BIOS of ZDOS 2.13 (not PCDOS) to prevent ‘deine 
bytes in serial output. Addresses based on loading 10.SYS 


: from 








disk under Debug; not correct for pateling the active ae tem. 


(ST{s].LineVal”* = 

found := TRUE 
else 

S := (s+1) mod MaxSym; 


Line) then 


if (ST{s].HashVal < 0) then 
with ST[s] do begin 
HashVal := h; 
new(LineVal); 
LineVal~ = Line 
end; 
store 


re 25 End Listing Two 


Listing Three. 
Structured hash-table search by Gary Dale 


h := Hash(Line); 
S := h mod MaxSym; 
repeat 


with ST[s] do 
if (HashVal = h) then 
found := LineVal” = 
else 
found =: 
if not found then 
Ss := (s+1) mod MaxSym 
until found; 


Line 


HashVal < 0; 


if (ST{s].HashVal < 0) then 
with ST{s] do begin 
HashVal := h; 
new(LineVal) ; 
LineVal”~ := Line 
end; 


store. s=_s; End Listings 
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Fatten Your Mac 


by Tom Lafleur and Susan Raab 


Veteran microcomputer hardware hack- 
ers have denounced Apple for abandon- 
ing the principle of an open architecture 
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with the Mac. But to the true hacker, all 
architectures are open. 


The modifications described in the article by Lafleur and 
Raab are not for amateurs. In fact, we can’t with a clear 
conscience recommend that you void your warranty and risk 
destroying your motherboard to save a few dollars. AI- 
though we’ve taken steps to convince ourselves of the techni- 
cal accuracy of the article (and we know that Tom Lafleur 
has used this procedure on several Macs), we haven't yet 
had the nerve to fatten a Mac ourselves. Don’t take this on 
as a first hardware project. Don’t undertake it if you aren't 
sure of the risks involved. And don’t blame us if anything 
goes wrong. We are providing this information strictly as a 
service to those who know how to use it. We take no respon- 
sibility for fried Macs. If you have the newer 128 mother- 
board, read the addendum on page 4. 


MacPaint? Does the performance of even your new 

hard disk drive leave you longing for the lightning 
response cf a RAM disk? Want to run Lotus 1-2-3 and can't, 
or are you developing MAC software and just plain running 
out of room? 

For these and many other reasons, Macintosh owners ev- 
erywhere are rushing to Apple for a FAT MAC upgrade that 
packs a full 512K of memory into the system. Most will (and 
should) wait for Apple to add the necessary chips to the Mac- 
intosh motherboard. However, if you are one of the adventur- 
ous few willing to sacrifice your Apple warranty and wager 
the life of your Macintosh against your soldering skills, here’s 
how to perform the upgrade yourself for half the cost. 


‘ re you tired of those pesky disk writes while using 


You'll Need. . . 

The checklist in Table I (page 21) shows the parts and tools 
you'll need to complete the job. To minimize your MAC’s 
down time, make sure you have everything on the list before 
you begin. All of the parts can be found at your local elec- 
tronics supply house or by looking for ads in your favorite 
computer magazine. 

Because the 256K RAM chips are a little harder to find, I 
have listed a few sources. We have paid $15 to $45 each for 
the memory chips: they are not cheap! We’ve tested only 
NEC memory chips in this conversion, but other equivalent 
256K memory chips should work as well. Once you’ve got 
the parts and equipment together, you’re ready to begin. 


The Procedure 

You'll need about four hours of quiet concentration to com- 
plete this upgrade yourself. Before you begin, read through 
the entire procedure. Then disconnect all cables from the 
Macintosh, including the keyboard, mouse, printer, extra 
drive, power, and anything else you might have plugged in. 
(1) Remove the case screws. Use the Xcelite XTD-10 Torx 
screwdriver to remove all five of the case screws (see Photo 1 
on page 20). There are two near the bottom, one inside the 
battery case, and two deep inside the handle. 


Tom Lafleur, P.O. Box 490, Del Mar, CA 9201 4. 


Susan Raab, Digital Research International, 160 Central 
Avenue, Pacific Grove, CA 93950. 
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(2) Remove the case. Turn the Macintosh facedown on a 
table. Gently press down on the battery compartment, power 
connector, and I/O connectors while you lift up on the back 
of the case. The back of the case should come off in your 
hands, leaving the faceplate in position around the screen 
and disk drive door. If the case is stubborn, insert a long 
metal ruler into the the seam between the faceplate and the 
back of the case (see Photo 2, page 20). ( Do not use a 
screwdriver here.) Use the ruler to gently pry the seam open 
as you pull up on the back of the case. 

(3) Remove the motherboard. Find and disconnect the two 
cables that attach the display board and disk drive to the 
motherboard (see Photo 3, page 20). Ease the motherboard 
from its connections and remove it from the chassis. Check 
the revision number of the motherboard. We’ve successfully 
performed this upgrade on motherboards that have the revi- 
sion numbers 630-0101 screened on top and 820-0086C 
etched on the back. 

(4) Locate and remove the memory chips. You'll find sixteen 
memory chips with part number MT-— 4264 at IC locations 
F5 through F12 and G5 through G12 (see Photo 4, page 20) 
Remove them from the motherboard as follows: 

e Using a small pair of wire cutters, clip all the pins off 
each chip as close to the chip as you can (see Photo 5, 
page 20). Then throw away all 128K of these memory 
chips—they aren’t as valuable as the Macintosh 
motherboard! 

e Using a low-temperature soldering iron (700° ), remove 
all the memory chip pins from the motherboard (see Pho- 
to 6, page 21). It’s handy to use a Weller WTCPN solder- 
ing station because it has a magnetic tip that can pull the 
pin out of the board as soon as the pin is heated, but other 
soldering irons will work if you use care. This is a repeti- 
tive task (256 pins!) and you'll soon develop a rhythm. To 
keep the rhythm going, skip over pins 8 and 16 from each 
chip on the first pass. Because they’re connected to the 
inner power and ground layers of the motherboard, they 
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require more heat and time to remove. If you remove 
them on a second pass, they’ll establish their own rhythm. 
e Clean out all the holes with a solder sucker (see Photo 7, 
page 21). Again skip holes 8 and 16 on your first pass to 
keep your rhythm going, then clean them out on a second 
pass. 
e Clean the motherboard with a fine brush. Look the 
board over for any solder splashes or broken etch. 
(5) Insert IC sockets. Carefully solder a good IC socket in 
each memory chip location. When you’re done, clean the 
back side of the motherboard with alcohol or a TF degreaser 
to remove all of the flux left after soldering. Examine the 
motherboard again for short or broken etch. 
(6) Install new memory chips. Carefully insert the sixteen 
41256 memory chips into the sockets (see Photo 8, page 21). 
(7) Test motherboard. Before you go any further, check your 
work by starting up the system. At this point, it should oper- 
ate as a normal 128K Macintosh. To complete the test, fol- 
low these steps: 
e Insert the motherboard back into the Macintosh chas- 
sis. Connect the display and drive cables to the mother- 
board, then connect the power cable. 
e Start up the system. If all is well, you’ll see the normal 
question-mark disk icon. If the system’s diagnostic soft- 
ware finds a problem, it will display a sad icon (or as 
much of one as it can!). If the system does not start nor- 
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mally, check the trouble-shooting section at the end of 

this article. Do not go on to the next step until the system 

boots up normally. 
(8) Remove the motherboard. Again disconnect the display, 
disk, and power cables from the motherboard. Ease the moth- 
erboard from its connectors and remove it from the chassis. 
(9) Assemble a new memory select IC. You must build a 
memory select IC that lets the Macintosh access the extra 
memory you've just installed. Create the new IC as follows, 
using Photos 9 and 10 (page 21) and Figures One and Two 
(page 23) for reference. 

¢ On a good quality 16-pin IC socket, bend out all the 

pins except 2, 7, 14, and 16. 

¢ Use solder and some small-gauge wire (30 awg) to con- 

nect pins 1, 10, 11, 12, and 13 to pin 8. 

e Solder a 2.2K 1/4 watt resistor between pins 15 and 16. 

e Use solder and some small-gauge wire to connect pins 3 

and 4 to pin 15. 

e Insert a 74F253 or a SN74AS253 dual 4-to-1 multi- 

plexer into this modified IC socket. 
(10) Install the new memory select IC. You must connect the 
new IC assembly to the 68000 address bus, memory select 
logic, and other lines on the motherboard as follows: 

¢ Mount your new IC assembly on top of the 74F253 (or 

SN74AS253) located at F3 on the motherboard. Solder 

pins 2, 7, 14, and 16 of the new IC assembly to the same 

pins on the 74F253 at F3. 

¢ Locate the seven IC pads at E3, next to pins 32 and 33 

of the 68000 microprocessor (see below): 


33 
l oO ( + 5 Volts) 
2 O ( Dram pin 1) 
3 O ( Al8) 

68000 4 ) (SEL:= A) 

5 O CSEE — B) 
6 O ( Al7) 
‘| O ( GND) 

32 


e On the back side of the motherboard, cut the etch be- 

tween pins | and 2 at location E3. 

¢ Solder a 47-ohm 1/4 watt resistor between pin 7 of the 

new IC assembly and pin 2 of the IC pad at location E3. 

(See Figure One.) 

e Using solder and small-gauge wire, connect pin 5 of the 

new IC assembly to pin 3 of the IC pads at location E3. 

e Using solder and small-gauge wire, connect pin 6 of the 

new IC assembly to pin 6 of the IC pads at location E3. 

e Check the motherboard for any solder splashes, missed 

wiring, or broken etch. Clean the board with alcohol or a 

TF degreaser to remove any flux left after soldering. 
(11) Test your FAT MAC! Insert the upgraded motherboard 
into the Macintosh chassis. Reconnect the disk, display, and 
power cables. Power up your Macintosh and check for the 
normal question-mark disk icon. If your MAC does not ap- 
pear normal, review the trouble-shooting section at the end 
of this article. If the normal question-mark disk icon ap- 
pears, insert your system disk and open the disk copy pro- 
gram. The disk copy program should display a message that 
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says it only works with a standard 128K MAC. To see how 
much memory you have, start up BASIC (if you have it) and 
enter the free memory command: PRINT FRE(0). On our 
system, BASIC reports about 340K of memory. You may 
also want to run the MAC memory diagnostics as outlined 
below for a few hours to check for any long-term problems. 


Trouble Shooting 

If the system does not start normally, use a multimeter to 
check that all the connections you’ve made are connected 
properly. If all the connections check out, use the system 
diagnostic program in the Macintosh ROM to determine if 


Parts: 
Oty. Part No. Description Vendor 
16 41256-200 256K 200-ns NEC 
memory chips 
: 16-pin IC sockets 
SN74AS253N Dual 4-to-1 multiplexer TI,Motorola 
or 
_ 74F253N Fairchild 
— 2.2K 1/4 watt resistor 

(any resistor from 1K 

to 4.7K will work) 

47-ohm 1/4 watt 

resistor 


AT 


_~Memory chip vendors: 


_The first five vendors sell their products retail and have a 
small or no minimum order; the other vendors are indus- 
trial suppliers and may have a minimum order. 


__ Jameco electronics (415) 592-8097 
___ JDR microdevices : (408) 995-5430 
_ Advance computer products (800) 854-8230 
— (714) 558-8822 
Jade computer products (800) 421-5500 
- (800) 262-1710 
DoKay computer products (800) 538-8800 
: (800) 848-8008 
NARA (408) 748-9200 
TAKA (415) 952-9000 
Japan electronics (818) 369-1833 
DIC tt (213) 938-2677 
Tools: | 
Xcelite XTD-10 Torx screwdriver, 6-inch shaft 
Long metal ruler 
_Low-temperature soldering iron 
_ (Weller WTCPN recommended) 
Solder sucker 
Small-gauge wire (30 awg) 
Multimeter (for problem solving) 


Table I. 
Supplies Checklist 





Dr. Dobb's Journal, January 1985 








Photo 6 


Photo 7 


Photo 8 


Photo 9 





21 





—— DataBit = Pin2to Pate 








| Class Code 


ae “Sub Code 


~ Memory 
BulferPin. 


Ei2-— 2 


~~] any of the memory chips you've inserted are bad. 


Checking the connections is another repetitive task: you 
must make sure that all of the 256 new connections you’ve 


| made carry signal to the appropriate destinations. And most 


of the connections carry signal to more than one place! 
For example, a signal on pin 0 on one memory chip should 


: | : be connected to pin 0 on every other memory chip. A signal on 
| pin | should appear on pin | of all the other memory chips. 


Check for this continuity on all pins except 2, 14, and 15. 

Pin 15 is common among chips in the same row. For exam- 
ple, pin 15 on a chip in row F should be connected to every 
other pin 15 in row F but not in row G. Pin 15 on a chip in 
row G should be connected to every other pin in row G. Pin 2 
on each of the sixteen memory chips is directly connected to 


| one of the sixteen data lines of the 68000 microprocessor. Pin 


14 connects the memory chips to the memory buffer circuits 
at locations E12 and E13. 

Table II (at left) shows how pins 2 and 14 should be con- 
nected. Each row in the table gives information about one of 


| the memory chips. The first column lists the chip’s location. 


The second column lists the data bit of the 68000. The third 


_ column lists the pin on the 68000 to which pin 2 of the mem- 


- ory chip should be connected. The fourth column lists the pin 
| on the memory buffers to which pin 14 of the memory chip 





__ Meaningless 


= ROM uae © 7  _ 


Table I. 


: _ Identifies bad chips - 2 
" Identifies bad chips _ trouble, use the system diagnostics in the Macintosh ROM to 
Identifies bad chips _ 


Identifies hac chips . to the suspected chip for a bad connection. 


| _ Diagnostic Codes 


| “sub Code Bits . - 
_ | small bits will cycle under the code to indicate that the Mac- 
| intosh is running the memory diagnostic program. The nu- 
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Table IV. 





should be attached. 
If you discover that one of these connections is not con- 


| nected properly, find and correct the broken etch, or add 
| some small-gauge wire until the connection is restored. If all 
| the connections are in working order and you’re still having 


identify the bad memory chips. Look at all signals connected 


Diagnostics 
Before starting the diagnostics, you must have installed the 
programmer’s buttons Interrupt and Reset on the left side of 
your Macintosh. Hold down the Interrupt button and either 
press the Reset button or power on your Macintosh. 

A sad Macintosh icon appears with a numeric code under 
it. If all is working well, the code will be OF 000D, and some 


_| meric code that you will see has two parts; for example, OF is 
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- | the class code and 000D is the sub code. As shown in Table 
| II (at left), the class code tells what part of the diagnostic 


program found an error, and the sub code tells what the error 


- _| was. Each of the sixteen bits in the sub code identifies one of 
: - the sixteen memory chips. Table IV (at left) maps the sub 
| code bits to their respective chip’s location. 


If the diagnostics discover more than one bad chip, the sub 
code displays multiple bits. For example, if bit 3 is bad, the 
diagnostics display sub code 0008. If both bit 3 and bit 10 are 
bad, the diagnostics display sub code 0408. If the diagnostics 
identify a bad chip, you'll have to replace it with a good one 
or find the problem on the board. 

After all the diagnostics have passed, the program dis- 
plays an exception code giving the current state of your 
MAC. You should normally see a sub code of 000D, NMI. 
The others are listed in Table V (at right) for your informa- 
tion only. 
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Removing the Modification 
If you need to convert your Macintosh back into a standard 
128K unit, simply remove the IC assembly you added at 
location F3, remove the sixteen 41256 memory chips, and 
replace them with standard 200-ns 4164 64K memory chips. 
You must also connect the jumper at location E3, between 
pins | and 2. 

We’ve completed the conversion on over 10 MACs and 
have had no problems with this upgrade. So good luck with 
your new FAT MAC. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 


READ.ME 


The 256K dynamic RAM chips that turn a Mac into a Fat 
Mac are very sensitive to static electricity. Please note the 
following advice on handling 256K RAMs, adapted from in- 
formation from John Gilchrist of Microprocessors Unlimit- 
ed in Beggs, Oklahoma. 

To damage a true LSI device like a 256K RAM chip, you 
don’t have to touch it. Being close to it with a high potential 
voltage on your body will do the job. You can, for example, 
generate 3000 volts by walking across a carpet in leather 
shoes or by peeling off a foot or so of cellophane tape, and 
you won't feel a thing as the tiny spark jumps to the IC, 
doing its hidden damage. 

Following these steps should lessen the risk to the chips 
from static electricity. 

1. If you have a choice of workspace, almost any floor 
covering is better (for the present purpose) than carpeting. 

2. Take off your shoes. Don’t take this as a personal re- 
mark, but your feet sweat enough to make it unlikely that a 
high static charge can build up when you are standing bare- 
foot on a noncarpet surface. And don’t wear any nylon 
clothing. 

3. Spread out a large sheet of aluminum foil (about a 
three-foot length) and work on that. Wrap a corner of the 
foil around the Mac chassis or motherboard and poke the 
computer’s power cord through the foil. Keep your body 
(e.g., one elbow) on the foil throughout the process of pre- 
paring the Mac to receive its new chips. 

4. Don’t handle the 256K chips until, or any more than, 
you have to. When you are ready for them, slide the chips out 
of their factory tube onto the foil. Keep your body in con- 
stant contact with the foil as you install the chips. 

5. When you’ve finished the installation and are ready to 
test your work, be sure to remove the wall plug from the foil 
before plugging it into the wall. Otherwise you could fry 
more than a chip. 
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INTRODUCING 
Interface Technologies’ Modula-2 
Software Development System 


The computer press is hailing Modula-2 as “the next 


standard in programming languages.” Modula-2 
combines the strengths of its popular predeces- 
sor—Pascal—with the features that made the C 
language appealing, like independent com- 
pilation and direct hardware control. 

But until today, no company offered a 
Modula-2 system that made software develop- 
ment fast, easy and efficient. 


The fast, powerful tool 
for programmers 


Now that breakthrough is here: Interface Technol- 
ogies’ Modula-2 Software Development System for 
the IBM® PC, XT, AT and compatible 
computers gives programmers the same 
quantum leap in productivity that spread- 
sheets and word processors gave to end- 
users. It can reduce monotonous wait 
time, dramatically increase speed, help 
eliminate thoughtless mistakes, and free you to become 
more creative in all your programming efforts. 


How to speed input and 
eliminate 30% of errors 


Thirty percent of programming mistakes are syntax 
errors and simple typos in the program structure. Our 
“syntax-directed” Modula-2 editor does away with 
these time-consuming headaches forever. 

| It also speeds input 
by reducing manual typ- 
ing as much as 90%, let- 
) ting you enter statements 
‘with a single keystroke. 
For example, if you type 
a capital “I” at the be- 
ginning of a line, the editor 
completes the logical “IF 
THEN” statement auto- 
’ matically, so you can concen- 
Enter complete statements trate on what you want to 
with one keystroke. program, rather than your typing. 

The editor locks out errors, finishing each statement 
and procedure in perfect accord with the standard- 
ized rules of Modula-2. It also indents and formats 
your text automatically, making programs easy to read 
and maintain, an important feature on big projects. 

















And if you leave an undefined variable or data type, 
the editor detects the mistake and gives you the option 
of on-line “help” to correct it. No other programming 
text editor offers you this much innovation. 


How to turn “wait time” 
into “work time” 


Most of a program- 
mer’s time is spent 
| waiting, and the biggest 
' | culprit is usually the 
- | compiler. Our compiler 


The Interface Technologies Modula-2 
Software Development System saves 
time by compiling while you edit. 








turns this wait time 
into work time, witha 
technical innovation 
we call “background” 
compilation. 

With background 
compilation, every moment you spend writing or edit- 
ing a Modula-2 program, it’s automatically being 
compiled into object code, line by line as you work! 

When you're finished editing, all that’s left for the 
compiler to do is a quick mopping up that generates 
optimized native code in a single pass. 

How quick is “quick’’? 

Thanks to background compilation and the fact that 
the compiler itself is so fast, Interface Technologies’ 
compiler can turn 100 lines of typical Modula-2 pro- 
gram text into optimized machine code in less than 
five seconds. 

And the Interface Technologies Modula-2 Software 
Development System compiler produces compact 
code that has execution speed superior to that pro- 
duced by any other Modula-2 compiler presently 
available to individuals and firms involved in soft- 
ware development. 





How to do two things at once 


Along with the syntax-directed editor and back- 
ground compilation, Interface Technologies’ Software 





Development System gives your screen multiple 
windows so you can refer to one file while 
you edit another—simultaneously. 
Concurrent editing of 
multiple files is particularly 
useful when you're doing 
programming work intended 
for separate compilation, and 
Interface Technologies has 
the only Modula-2 develop- 
ment system on the market a; 


that provides you this help- a 


Work with snubeiple Hi files 
faster, easier in windows. 


ful benefit. 


How preprogrammed modules 
speed development 


One of the advantages of Modula-2 is that it lets you 
build large, reliable programs quickly, by linking 
smaller “building-block” modules. 

The development system’s toolkit of precompiled 
program modules includes the standard Modula-2 
library, and adds exclusive link-and-run modules for 
color graphics support, sound, and direct calls to the 











Operating sys- 
tem. Plus you get 
2 peel InOut Per ee cost updates 
from Inter- 
face Technol- 
ogies’ growing 
library of pro- 

gram modules. 


Turn big programs into smaller projects 
with ready-made modules. 





Increase productivity for $249 


Interface Technologies’ Software Development 
System is fast, powerful and unlimited. It works so well 
that it’s the same tool Interface Jechnologies is using to 
write business and consumer applications in Modula-2. 

For $249, you get the syntax-directed editor and 
compiler, linker, module library and tutorial that will 
have even modestly experienced programmers writing 
in Modula-2 in days. And you have full rights to your 
work; there’s no license fee for programs you develop 
with our system. 








You can use it on any IBM® PC, XT, AT 
or compatible with two DSDD floppy drives and 
320K RAM. 

You get a thoroughly indexed, comprehensive user’s 
manual and free telephone support from Interface 
Technologies. 

But the most important thing you get is the future, 


and the programming language of the future is 
Modula-2. 


For more information, or to order the Modula-2 
Software Development er call 1-800-922-9049 
today. In Texas, call _— 

(713) 523-8422. — 

To order | 
by mail, or 
to request 
further infor- 
mation, fill 
out and mail » 
the coupon a. 
below. | 
















IBM is a registered trademark of 
International Business Machines Corporation. 
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COMPANY or SCHOOL 

MAILING ADDRESS = 5 
i eh ee eA 
/ PLEASE SEND ME copies @ $249 each. 

MAIL REQUESTS TO: 


INTERFACE TECHNOLOGIES CORPORATION 
3336 Richmond, Houston, Texas 77098 
ITC will accept personal checks, money orders or the following credit cards: 
: Visa/American Express/MasterCard 


Credit Card # 

Interbank number { MasterCard}: 

Your Signature 

Texas residents, add 6. 125% Sales Tax. 


INTERFACE TECHNOLOGIES 


Exp. Date 





MODULA-2 SOFTWARE 
DEVELOPMENT SYSTEM 


aaa er FETT LEE Gs 
Ae peo ee 


Circle no. 50 on reader service card. 


QuickDraw Meets ImageWriter 





by Thom Mayer 
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pple’s new crop of computers, 
A the Macintosh and the Lisa, 

makes extensive use of bit- 
mapped graphics. Less visible than the 
graphics hardware, but just as neces- 
sary, is the well thought-out, well craft- 
ed, integrated collection of graphics 
software primitives called QuickDraw. 
These routines make it a simple matter 
to put graphics into programs. Because 
of QuickDraw, programmers have an 
easier job, users get better software, 
and Apple—who paid for its develop- 
ment—racks up sales. Unfortunately, 
the Lisa QuickDraw routines lack any 
support for the Apple ImageWriter dot 
matrix printer; hence, this article. The 
ImageWriter exhibits the quality fea- 
tures we have begun to associate with 
Apple hardware (e.g., well-crafted 
built-in software primitives and com- 
plete concise documentation). I would 
recommend the ImageWriter to anyone 
in the market for a printer. 


look at the routine IMAGE_PRINT 
and discuss some of the considerations 
that influenced its design. 

QuickDraw stores an image in a con- 
tinuous piece of memory with each bit 
corresponding to one pixel: a one for 
black, a zero for white. For example, 
the Lisa screen, which measures 720 X 
364 dots, requires 262,080 bits or 32K 
bytes. The exact relationship between 
the data in memory and the pixels on 
the screen depends on the values stored 
in the bitMap. A bitMap is a data 
structure specified in Pascal as follows: 


BitMap = RECORD 
baseAddr : QDPtr; 
rowBytes : Integer; 
bounds : Rect; 

END; 


The field baseAddr is a pointer (memo- 
ry address) to the beginning of the 
block of memory where the image is 


Printing sideways with a Macintosh. 


Figures | and 2 (page 27) were 
drawn on a Lisa by QuickDraw and 
were printed on an ImageWriter dot 
matrix printer with the enclosed rou- 
tine. Listing One (page 31) gives a 
Pascal unit containing the function 
IMAGE_PRINT, and Listing Two 
(page 35) demonstrates its use. In this 
article we will briefly review the way 
QuickDraw stores a graphics image 
and the way the ImageWriter prints 
graphics. Then we will take a cursory 


Thom Mayer, Tigre Designs, 3006 La- 
fayette, Austin, TX 78722. 


stored. We should imagine this memory 
grouped by lines, each line containing 
the number of bytes specified by the 
field rowBytes. Two dots on the screen 
that have the same vertical coordinate 
and differ in the horizontal coordinate 
by one are neighboring bits in memory. 
Two dots on a QuickDraw image that 
have the same horizontal coordinate 
and differ in the vertical coordinate by 
one are separated by exactly rowBytes 
bytes in memory (Figure 3, page 27). 
The ImageWriter, like all dot matrix 
printers, forms characters and graphics 
by printing a pattern of dots. The print- 
er head is composed of a vertical array 
of nine dot-forming devices spaced 
1/72 inch apart; at one stroke, the Im- 


Dr. Dobb’s Journal, January 1985 


ageWriter produces a pattern of nine 
vertical pixels. Normal characters are 
composed of seven such patterns, with a 
blank eighth pattern forming the space 
between the characters. The horizontal 
spacing between successive patterns 
can be set by sending the printer control 
codes: A spacing of 1/72 inch yields 
nine characters per inch, a spacing of 
1/136 inch yields 17 characters per 
inch, and so on (Figure 4a, page 28). 

When the ImageWriter is in graph- 
ics mode, each byte received produces 
an eight-pixel pattern determined by 
the binary representation of the byte 
(recall 1 byte = 8 bits). The top pixel 
corresponds to the least significant bit, 
and the bottom pixel corresponds to 
the most significant bit. A dot is print- 
ed if there is a one in the corresponding 
bit; no dot is printed if there is a zero 
(Figure 4b, page 28). 

Because a byte in QuickDraw corre- 
sponds to eight horizontal pixels on the 
screen, and a byte to the ImageWriter 
prints eight pixels aligned vertically, 
the image will come out sideways on 
the paper. Each printed line of graph- 
ics corresponds to a vertical strip on 
the screen, eight pixels wide. 

The pixels on the Lisa screen are not 
square: they are 1.5 times as high as 
they are wide. On the printer, the verti- 
cal spacing between dots is fixed by the 
printer head to 1/72 inch, so to match 
the Lisa screen aspect ratio we need a 
horizontal dot length 1/48 of an inch, 
which we make out of two dots on 
1 /96-inch spacing. At this spacing, an 
image the size of the Lisa screen nearly 
fills an 8 X 10 sheet of paper. 

The printer algorithm naturally 
breaks into several steps, shown here in 
the simple form of the main routine: 


function image_print ({parame- 
ters} ) : boolean; 
begin 
size_of_image; 
init_printer; 
init_buffer; 
for line_number: = | 
to (row_width) do 
begin 
buffer_a_line 
(line_number); 
spew_buffer; 
end; 
close__printer; 
image_print: =true; 
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This piece of memory can hold an image as large as 32 x 10 pixels. 
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AT LAST 


S-100 <> 488 


THAT 
DOES 
EVERYTHING 


YOU WANT 


It TO DO 


D&W DIGITAL, INC. 
20655 Hathaway Avenue 
Hayward, California 94541 
(415) 887-5711 
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end; 


This algorithm did not spring out of 
my head fully formed in top down 
style, but rather I developed it through 
successive refinement of a crude proto- 
type. At some point in the develop: 
ment, however, you must translate 
your work into the structured pro- 
gramming form. This process may give 
you insights into how to improve your 
work, and it will certainly lengthen the 
lifespan of your programs by simplify- 
ing future modifications. Good soft- 
ware is too costly to be disposable. 
Briefly let’s go through each routine: 
(1) SIZE_OF_IMAGE looks at the bit- 
Map to see where the image is stored in 
memory (baseAddr), how it is orga- 
nized (rowBytes), and what size image 
we are to print (bounds). 
(2) INIT_PRINTER sends the printer 
the initialization codes. To change from 
the default settings, which are appro- 
priate for text, to the proper settings for 
graphics takes 16 bytes of data, so most 
of this first block is NULs. 
(3) The FOR loop prints one line of 
graphics per pass. BUFFER_A_LINE 
gathers the bytes needed to print the 
line and stores them in the buffer. 
SPEW_BUFFER sends the buffer to 
the printer and listens for confirmation 
from the printer. At the beginning and 
end of the buffer are control codes that 
are initialized by INIT_BUFFER. 
(4) CLOSE_PRINTER close files, 
switches the printer back to default 


. Figure 4a. 
The printer head produces nine 
vertical pixels per shot. The 
standard characters are con- 
structed from eight such verti- 
cal patterns. 


settings, and form-feeds the paper. If 
the routine gets this far, it has detected 
no problems and returns the value true. 
There we have it, the means to print 
a QuickDraw image on the Image- 
Writer dot matrix printer. Now we will 
look more closely at the program de- 
sign, so have your listing handy. 
IMAGE_PRINT is set up as a Bool- 
ean-valued function that returns false 
only if the routine couldn’t print the 
image. The usual cause for failure is 
the printer being off, which is detected 
when the blockwrite routine says it was 
unable to complete the transfer of 
blocks. All failures are channeled 
through the procedure NO_GOOD : 


procedure no_good; 
begin 
image_print: = false; 
exit(image_print); 
end; 


The not well-known but extremely 
handy procedure exit satisfies those 
programming urges that in other envi- 
ronments might be handled by a GOTO 
statement. It is the calling program’s 
responsibility to respond appropriately 
to failures. The following code frag- 
ment, which uses the system call 
PAbortFlag, gives the user the ability 
to recover or abort: 


while not ( PAbortFlag or 
IMAGE_PRINT 
(grafptr,printerPort) ) 
begin 
writeln ( ‘ fix printer or press 


Figure 4b. 
In graphics mode, each byte 
produces a vertical line of eight 
pixels. This pattern was pro- _ 
duced by the byte 01101011 
binary (i.e., 107 decimal). 





Dr. Dobb’s Journal, January 1985 


Change your diskette to fit the IBM PC 








THE FILE CONNECTION 


8” DISKETTE SYSTEM FOR THE IBM PC 


Our “FILE CONNECTION” programs provide 8” diskette file exchange 
between the IBM PC and most Micro-Mini-Main Frame computer systems. 

Our “WORD CONNECTION” programs provide 8” diskette text document 
exchange between the IBM PC and many word processing systems. 

Our “DISPLAYWRITER CONNECTION” programs transform documents 
from Textpack, Wordstar, Multimate, etc. to the DisplayWrite 2 format. 

In addition to our hardware and program products, we also provide a 
conversion service for customer supplied diskettes. Please contact us for 
information about the hundreds of 54” and 8” diskette formats and 
systems which we currently support. 


FLAGSTAFF ENGINEERING / P.O. Box 1970 / Flagstaff, AZ 86002 
Telephone 602-774-5188 / Telex 705609 FLAG-ENG-UD 


Circle no. 25 on reader service card. 
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Circle no. 24 on reader service card. 


abort key ’); 

writeln ( ‘ press RETURN to 
continue ’); 

readln ( ); 

end; 


Filling the buffer with the bytes 
needed to print one line is like buying 
groceries at the supermarket. BUF- 
FER_LINE loads a byte, skips row 
_bytes bytes, loads a byte, and so on; 
clearly we need random access to 
memory by the byte. This calls for a 
packed array of char. But we don't 
want to make a new array: we want to 
use the memory that QuickDraw has 
already set up. So rather than declar- 
ing an array variable, we declare a 
pointer variable, CH, of type pointer to 
packed array of char. Now we are all 
set. Assign CH the value baseAddr 
(i.e., the beginning of the image mem- 
ory), and an expression like CH*[n] 
gives access to the nth byte of the im- 
age memory. The memory has not 
been changed—only the way the pro- 
gram views it. 

Pascal is a strongly typed language, 
and most compilers check the type of a 
pointer before allowing assignment. 
Just as you can’t mix apples with or- 
anges, you can’t mix pointers to apples 
with pointers to oranges. Lisa Pascal, 
however, includes a wonderful exten- 
sion, the unary operator @, which re- 
turns the pointer to the operand (just 
like the & operator in C). For exam- 
ple, if Z is an array, then @Z is a 
pointer that points to Z. Simple, yes ? 
The @ operator has another important 
feature: the pointer resulting from an 
@ operation, like the nil pointer, is as- 
signment-compatible with any other 
type pointer. To make CH point to the 
same place as bitAddr, use the assign- 
ment CH:= @bitAddr”. I call this de- 
typing a pointer. It is like a CAST oper- 


ation in C. 

Between the routine IMAGE 
_PRINT and the printer sits the device 
driver routine that actually transfers 
the bytes. A feature of the Lisa port 
driver is the automatic insertion of a 
line feed after each carriage return, an 
option that can be enabled and dis- 
abled with system calls. The automatic 
line feed may be handy if you have a 
vintage 1960 printer, but in a graphics 
setting, adding the byte 00001010 be- 
hind every occurrence of the byte 
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0001101 is a bug. To track down this 
bug, without the 20-20 vision of hind- 
sight, required a long session with the 
debugger. Among other capabilities, 
the debugger allows you to halt the 
program and to go in and look at the 
memory—even change it if you wish— 
and then resume operation of your pro- 
gram. My search went as follows. 

First I went in and looked at the 
memory where the screen image was 
stored to make sure that it looked as I 
had expected. Then I looked at the 
memory corresponding to my buffer to 
make sure it was correct. Upon closely 
inspecting the buffer for the line that 
was giving me trouble, I found out that 
the bug happened only when the byte 
OD was in the buffer. With the debug- 
ger I could change the occurrences of 
OD to some other byte, or vice versa, 
and ascertain that OD was the guilty 
party. OD is the code for carriage re- 
turn, and it was instantly clear to me 
that somebody was adding an LF after 
every Carriage return. But who? 

I spent a long time thinking the 


printer was the culprit but finally con- 
vinced myself otherwise and uncovered 
the automatic line feed feature of the 
port driver. The system calls necessary 
to reset this appear in the procedure 
AUTO_LF, which can enable or dis- 
able the automatic line feed on either 
serial port. Unfortunately, the routine 
now needs to know which port the 
printer is connected to. I was tempted 
to circumvent this need by temporarily 
resetting both port drivers, but this 
would be unwise on a multitasking ma- 
chine like the Lisa because some back- 
ground task might be using the other 
port; for example, a modem connected 
to the other serial port might be in use 
by a BBS running in the background. 
In the interest of simplicity, this ver- 
sion of IMAGE PRINT makes no at- 
tempt at treating large blank spaces in- 
telligently, an addition that can 
improve speed substantially. As pre- 
sented, IMAGE_PRINT requires 188 
seconds to print a 720 X 364 picture. 
Also in interest of simplicity, the width 
of the printed image is rounded up to 


the nearest multiple of eight, i.e., on a 
byte boundary. For those desiring sam- 
ple QuickDraw programs and a ver- 
sion of IMAGE_PRINT that does not 
make the above two simplifications, 
mail me a $25 check, and I will send 
you a 3.5-inch Lisa format disk with 
two versions of IMAGE_PRINT, other 
graphics utilities, and complete pro- 
grams that use QuickDraw and the 
utilities. Source and compiled code is 
included. You are welcome to distrib- 
ute the code for noncommercial pur- 
poses as long as you do not remove my 
copyright notice. Please identify any 
modifications you make, and I encour- 
age you to share any successes you 
have. We are the neurons of our cul- 
tural brain. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 





QuickDra W Meets Image Writer (Text begins on page 26) 


Listing One 


{ 

{$R-} 

unit GPHU; 

{ COPYRIGHT T.MAYER 1984 -- 

interface 

uses 

{$U-} 
{$U QD/QuickDraw } 
{$U QD/QDSupport } 
{$U syscal]} 

{$U+} 


{graphics utilities } 
DISTRIBUTION FOR NON-COMERCIAL PURPOSES ALLOWED  } 


GuickDraw, 
Q@DSupport, 
syscall; 


function image_print(tp:grafptrjprinterPort:integer) : boolean; 


implementation 


function image print; 


type cars = packed array[0..maxint] of char; 


var 
printer:textjp:file; 


row _bytes,bytes_to_print,height,line_number,index,i,buff_top:integer; 


chs:*cars; 


buff : packed arrayf[0 .. 1023] of char; 


procedure AutoLinefeed(whichPort: integer ;enabled:boolean); 


{ whichPort=0 -> portA, 


whichPort=1 -> portB 3} 


var Ecode:integer ;path:pathname ;Cparm:Dctype; 


begin 


if <whichport mod 2=0) then path:=’-RS232A’ else 


CParm.dcVersion:=2; CParm.dcCode:=17; 
if enabled then CParm.dcDatal[0):=1 else CParm.dcDatal0):=0; 
DEVICE _CONTROL¢Ecode,path,Cparm); 


end; 
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path :=*-RS$232B’ ; 


(Continued on next page) 
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QuickDr aw Meets Imag e Wr i] f er (Listing Continued, text begins on page 26) 
Listing One 


procedure no_good; 
begin 
image _print:=false; 
exitCimage print); 
end; 


procedure init_printer; 
var i:integers 
begin 
{ first we disable auto line feed in RS232 device driver } 
AutoLineFeed(PrinterPort,false); 


{ the printer file is to be accessed via blockwrite. } 
reset(p,’-printer’); 


{ send one block, mostly nuls, with initialization codes :} 


{this tells printer to recognize 8th bit - neccessaty for graphics } 
buf flO) :=chr¢27) ; 
bufffCils=chr¢90) ; 
buf f{€2):=chr¢0) ; 
buff#[3]:=chr¢50): 
{make sure printer adds no LF after CR } 
buff(4]:=chr¢27); 
buf #05) s=chr (90) ; 
buf#[6] s=chr¢128) ; 
buff#£€7]:=chr(0); 


{ this sets horizontal spacing to 96 dots per inch } 
buff{£8) s=chr¢27) $5 
buff(9]:=°E? ; 


{ this sets vertical line feed to 1/9 inch, i.e. height of 8 dots } 
buff#£10) :=chr¢27) ; 
buf fliij:=’T’; 
buf f#Ci2) 32/17; 
buf #l13):=% 67 ; 


{this sets printer head motion left to right only. yields better quality output } 
buf #014] s=chr¢27); 
buf f#liS):=">7%3 


for i3:=16 to 511 do bufflili=chr(0); {most of block is NULs } 


{ now actually send the initialization block } 
if (blockwrite¢p,buff,1)<{>1) then no_good; 


end; 


procedure init_buffer; 

var isinteger; 
begin 

{ these first six bytes say “here comes 728 graphics codes" } 

buf flO] :=chr¢27) ; 
buf #{£1):=’G’; 
buf#{£2]:="07; 
buf f{3]:="77 ; 
buf #(4]:=% 27 ; 
buf#{[5):=’87 ; 


for i:=6 to 1023 do bufflil:=chré(0); {blank if not otherwise reset } 
buf#(734] :=chr(13) sbuf#0735] :=chr¢(10); ¢ CR LF ends each line} 
buff _top:=6; (Continued on page 34) 
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Announcing a 


TOTAL PARSER GENERATOR 






<GOAL>:: = <ARARID> <COMPILER> <Dboibh> 


SLICE YOUR COMPILER 
DEVELOPMENT TIME 


An LR(1) parser generator and several sample compilers, 
all in Pascal for your microcomputer. 


e Generates parser, lexical analyzer and skeleton 
semantics 

Universal, error recovery system 

Adaptable to other languages and computers 
Interactive debugging support 

Thorough documentation 

TURBO PASCAL” INCLUDED FREE OF CHARGE 
Includes mini-Pascal compiler, assembler, simulator 
in SOURCE 


‘SPECIAL INTRODUCTORY OFFER $ 995 





QPARSER™ runs on IBM PC/DOS in Turbo Pascal. Parser generator in object form; all else in source. 
QPARSER takes a grammar and generates a correct, complete, high-performance compiler with skele- 
ton semantics in Pascal source. Easy to add full semantics for YOUR application. Excellent for industrial 
and academic use. An accompanying textbook (SRA publishers) available in 1985. Training can be 
arranged. Demo disk available for $50. 


Educational and quantity discounts available. Check, money order, Mastercard, Visa. California resi- 
dents add 6.5% sales tax. 


WRITE OR CALL FOR FREE BROCHURE. 
Technical details: call 408/255-5574. Immediate delivery. CALL TODAY! 


g 


1164 Hyde Ave., San Jose, CA 95129 
TOLL FREE: 800-538-9787 
(California residents call 408/255-55 74) 
'™ Turbo Pascal is a registered trademark of Borland International. 
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QuickDraw Meets ImageWriter 


Listing One 


begin 


end} 
end. 
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ends 


procedure enbuffta:char); 

begin 
if buff_top=1022 then exitenbuff); 
buff(€buff_top]:=asbufflbuff_top+1]:=2a; 
buff tops=buff_topt2}3 

end}; 


procedure spew_buffer; 
const nblocks=2; 
begin 


if (blockwrite(p,buff,nblocks)<>nblocks) then no_good; 


buf f_top:=6; 
end; 


procedure close printer; 

var printerstext; 

begin 
close(p); 
rewrite<printer,’-printer’); 


(Listing Continued, text begins on page 26) 


writeCprinter ,chr¢27) ,’c")}3 {return printer to default set up) 


write(printer ,chr¢12)) 5 {form feed} 
close(printer); 


AutoLineFeed(PrinterPort,true); { enable port driver autoLF function } 


end; 


procedure buffer_a_line¢line_number: integer); 
var isinteger; 
begin 
index:=row_bytes - line_number; 
for i:=1 to height do {buffer a line} 
begin 
enbuff<ch*Cindex]); 
index :=indextrow_bytes; 
end; 
end; 


procedure size_of_image; 
var width : integer; 
begin 
with tp*.portBits do 
begin 
row _bytes:=rowbytes; 
height:=bounds.bottom-bounds.top; 
width := bounds.right - bounds.left; 
ch:=a@baseAddr*; 
end} 
bytes _to_print:=width div 8; 


if width mod 8 <)0 then bytes_to_print:=bytes_to_print+t1; 


end; 


size _of_image; 
init_printers 
init buffer; 
for line_number:=1 to ¢bytes_to_print) do 
begin 
buffer_a_line¢line_number) ; 
spew_buffer; 
end; 
close_printer; 
image _print:=true; 
{ of image print } 
{ of implementation } 


End Listing One 
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Listing Two 


program example; { this sample program creates ILLUSTRATION 1 } 


uses 
{$U QD/QuickDraw } QuickDraw, 
{$U QD/Q@DSupport } QDSupport, 
{$U syscal]} syscall, 
{$U gphu } gphu, 
{$U math] ib} mathlib; { math library 
var 
wave : arrayl] .. 256) of real; 
i,J:integer; 
begin 


init_graphics; erase screen} 


{ make a square wave and graph it : } 
square _wave( wave ,256,16); 


{ graphics utilities - here we use : 
init_graphics 
bar_plot 
image_print } 


- here we use ; 


square wave 


i.e. FourterAMPlitudes ) } 


bar_graph ¢ 256, @waveli), 10,40, 256,128, 0.0, 1.0, true,false, ’wave form’,’’):; 


{ fourier transform it and graph that : } 
famp(256, dwave) ; 


bar_graph ¢ 129, @wave, 400,40, 200,128, 0.0, 1.0, true,false,’fourier amplitude’ ,’’); 


{ print the whole screen } 


if not image_print ¢ thePort, 0 ) then writeln(’turn on the printer’); 


end. 


End Listings 





C Source Code 
RED 


Full Screen Text Editor 
IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. 


® RED is fast! RED uses all of ¢ RED comes with a Reference 
your terminal’s special func- Card and a Reference Manual 
tions for best screen response. that provides everything you 
RED handles files as large as need to use RED immediately. 


your disk automatically and *: RED is tinconditionally 


quickly. guaranteed. If for any reason 

¢ RED is easy to use for writers you are not satisfied with RED 
or programmers. RED’s com- your money will be refunded 
mands are in plain English. promptly. 


® RED comes with complete 
source code in standard C. RED: $95 
RED has been ported to main- : 
frames, minis and micros. Manual: $10 


Call or write today for 
for more information: 
Edward K. Ream 


edward k. ream 


1850 Summit Avenue 
Madison, WI 53705 
(608) 231-2952 





To order: 
Either the BDS C compiler or the Aztec CII compiler is required for CP/M80 
systems. Digital Research C compiler v1.1 is required for CP/M 68K systems. No 


compiler is required for IBM or Kaypro systems. 


Specify both the machine desired (IBM, Kaypro or CP/M) and the disk format 
described (8 inch CP/M single density or exact type of 5'%4 inch disk). 


Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, I do 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders 
unless a check is included. Your order will be mailed to you within one week. 


Dealer inquiries invited. 
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BUFFERED I/O BOARD Introductory Price * $59.95 
With despool functions, protocols supported: XON/XOFF. ETX: ETB/ACK 


Serial I/O Parallel Parallel 
110-19200 Baud In Out 


Programmable Z80 Control 64K | 
Timer Processor Buffer RAM 


2K Program EPROM 


Vectored S-100 Interface Programmable Functions 


Interrupts 16 Bit I/O Addressing Dynamic Buffering 


80 CHARACTER VIDEO BOARD 


25 Lines with status, compatible with Wordstar & dBase 


8 
: 2716 Char. | | 2716 Alternate Keyboard 
eee Generator | | Character ee Parallel 
ideo EPROM Gen. EPROM EOE Ibori 


8275 CRTC 
Reverse Video 280 Control Type Ahead 


Highlight, Blink Processor Buffer 


Screen 2K Program = + eae Memory 
RAM EPROM Addressing Mapped I/O 
Includes Bareboard, Heatsink & Documentation Call or write for more information. 


Simpliway Products Ca. 
P.O. Box 60/ 
Hoffman Estates, /L.60195 


(312) 359-7537 


OEM dealer pricing available, $3.00 S/H, IL. Res. add 7% tax 
dBase™ - of Ashton- Tate Corp. — Wordstar™ - of Micropro Int'l. Corp 
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Archiving Files with CP/M-80 
and CP/M-86 


by lan E. AShdown 
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CP/M-86, you know the problem 

well: sitting there at two in the morn- 
ing trying to remember which files you 
worked on so you can copy them to a 
backup disk. If you have a hard disk in 
your system, the problem can be an 
acute pain. Which of several hundred 
files did you update or otherwise modi- 
fy during your marathon program- 
ming session? 

The ideal solution would be to have a 
utility program that somehow deter- 
mines which files have been changed on 
a disk and automatically copies them to 
a backup disk. This procedure, known 
as “incremental backup,” is superior by 
far to the usual methods of either rely- 
ing on your memory (at two in the 
morning?) or copying the entire disk. 

Although Digital Research’s docu- 
mentation for their CP/M-80 and CP/ 
M-86 operating systems gives no indi- 
cation that a file is marked in any man- 
ner when it is written to or renamed, 
you nevertheless can implement an in- 
cremental backup utility exactly as de- 
scribed above—the ideal solution. BU 
is one example of such an implementa- 
tion. 


|: you use CP/M-80 versions 2.x or 


have been written to give even the nov- 
ice C programmer a clear understand- 
ing of what is going on each step of the 
way. What follows is a general descrip- 
tion that covers the salient features of 
BU from a user’s viewpoint. 

The CP/M-80 Version 2 Interface 
Guide’s description of BDOS Service 
30 (Set File Attributes) states that the 
file attribute bit t3-prime is “reserved 
for future system expansion.” Howev- 
er, if you use a disk utility to set t3- 
prime to true in the file’s directory en- 
try, you will find that the BDOS resets 
it to false (zero) whenever the directo- 
ry entry is changed. Since this means 
that the file has been opened, written 
to, and closed (or else renamed) by the 
BDOS, t3-prime is apparently an un- 
documented attribute bit that indi- 
cates when a file has been updated. 

This behavior is not an unreliable ar- 
tifact of some other process; DRI added 
a very similar feature, called the “Ar- 
chive” attribute, to its multiuser MP/M 
2 operating system. The version of PIP- 
.COM supplied with MP/M 2 features 
an “A” option, which causes PIP to 
copy only those files that have their Ar- 
chive bits set false. After copying each 


An expedition into the jungle of Undocumented 
Features comes home with an orphan attribute bit. 


Theory and Practice 

For a detailed explanation of the inner 
workings of BU, you should read the 
comments accompanying the source 
code in the Listing (page 39). These 





Ian Ashdown, byHeart Software, 2 - 
2016 West First Avenue, Vancouver, 
B.C. V6J 1G8. 


file, PIP sets the bit true. It seems logi- 
cal, then, that in writing CP/M-80 ver- 
sions 2.x and CP/M-86, DRI intended 
to rewrite its version of PIP to include 
an “A” option but for whatever reason 
never got around to doing so. This 
leaves the user to come up with a utility 
that takes advantage of this orphaned 
attribute. 

A variety of such utilities are avail- 
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able, including one in the public do- 
main and at least two commercial 
products. BU’s advantage is that it is 
written in C, thus presenting you with 
the opportunity to customize it to your 
particular needs. The source code has 
been profusely commented for precise- 
ly this reason. 

BU accepts command lines of the 
following form: 


BU x[:afn] y [-AFHQSn] 
where x = drive name of disk to be 
backed up, 
y = drive name of backup disk, 


and the optional arguments are: 


-A_ All files, regardless of status 

—-F Fast copy (without verification) 

—H_ Hard disk (files may be split) 

-—Q Query each file before backup 

-S_ System attribute copied to 
backup 

-n Backup USER ux files only 
(0-31) 

afn Any legal CP/M ambiguous 
fileref (can only be used with —n 
option) 


If the above is a bit confusing, some 
examples may help in explaining the 
various options: 


BU a b — Copy updated files in all user 
areas from drive A: to drive B:. 

BU c a -f — Copy updated files in all 
user areas from drive C: to drive A: 
without verification of copied files. 

BU a:file.typ m -5 — Copy file A:FILE- 
-TYP (user area 5) to same user 
area on drive M:. 

BU a:file*.t? c -0q — Copy any files in 
user area 0 matching ambiguous 
file. reference A:FILE*.t? to :the 
same user area on drive C:. The 
operator is queried before each file 
is copied. Answering y or Y for 
“Yes” results in the file being ar- 
chived; anything else results in the 
file being skipped. 

BU b a -ah — Copy all files from all 
user areas from drive B: to drive 
A:. If BU runs out of backup disk 
space while copying a file, the file 
will be split across two disks. 

BU a b -a -s — Copy all files from all 
user areas from drive A: to drive 
B:. Those files with the System at- 
tribute set are copied as System 
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files to drive B:. (Note that the 
dash options can be separated. ) 


A fair amount of the code involved in 
BU has to do with defensive program- 
ming: always assume that the user will 
make a mistake. The command line is 
validated as thoroughly as possible. 
Any errors detected are displayed with 
an appropriate message, along with the 
previously listed explanation of what 
command lines are valid. 

Once in operation, assuming no op- 
tions have been selected or ambiguous 
file references specified, the program 





will scan the directory of the disk in 
drive x, note which files have been 
changed since the last time BU was run 
on that disk, then copy only those files 
to the disk in drive y. Existing files with 
the same fileref and user number on the 
backup disk are automatically erased. 
Because the new files are backup 
copies, each one is read after it is writ- 
ten and verified character by character 
with the original file. All available 
memory is used to buffer the data for 
disk read and write so that BU can copy 
and verify as quickly as possible. Once 
the new file has been fully verified, its 


dBASE Ii outfoxed! 


Who says the most popular database management system is the best? 


Introducing FoxBASE II™ the new relational database management system that’s 
dBASE II source compatible. It does everything dBASE II does ... plus a whole lot more. 


e Runs 3 to 5 times faster 

e Sorts up to 20 times faster 

e Permits up to 48 fields per 
record... 50% more than dBASE I! 

e Supports full type-ahead 


What’s more, it costs less. 


e Compiles program sources into 
compact object code 

e Comes with a sophisticated online 
manual and HELP facility 

e Has twice aS many memory variables 


MS-DOS $395. AOS/VS $995. 


FoxBASE II is available now for: |BM-PC, IBM-PC/XT, COMPAQ & IBM compatibles, Tl! Profes- 
sional, DG Desktop, DG MV Series, and many others. Call or write today for more information. 


Developed by 


DACOR 


dBASE II is a registered trademark of Ashton-Tate 
FoxBASE Il is a trademark of Fox Software Inc. 





from FOX SOFTWARE INC. 


eave RSET EASY | BREE SE EEE TD TS EI LE TE EE LESSEE EL ETT ET EE EE TS TOS, 
COMPUTER SYSTEMS § 13330 Bishop Road, P.O. Box 269, Bowling Green, OH 43402 / 419-354-3981 / TWX 810-499-2989 


Circle no. 40 on reader service card. 
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iIsv=. 
FORTH 


lke) an dal We) 0) (-\oum | 


Fixed point speed can rival that of float- 
Tate Mm eXe)[anamar-|geli-]q-Mmm = 108 am cal-Mee(-¥r-1] Kom at-1Y(> 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
ldg-laversale (canes) tS 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
PO Box 2516, StaA 
Champaign, IL 61820 


aM -vo1 aa) (er-] im fance)snat-i ale) ah 
217/359-6039, mornings 


For any Apple ][ model, 48K or larger. 
yoy e) ¢) (Mt - Mg -1*](14-1¢-10 Mm te-lel-laal-|¢ ate) mV ole) [= 
Computer. 
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file attributes are set to “directory” 
(DIR) and “read-only” (R/O) to en- 
sure that it can be displayed in a direc- 
tory listing of the backup disk and that 
it cannot be accidentally erased. 

If the combined size of the files to be 
backed up exceeds the available space 
on the backup disk, BU will take one of 
two actions, depending on whether or 
not the —H option has been selected. In 
the default mode, BU will stop when it 
runs out of disk space and erase the 
current, partially written, backup file, 
It will then ask the operator to insert a 
fresh disk in the backup drive. When 
this is done, BU will begin to copy files 
to the new disk. 

The —H option is intended primarily 
for use with hard disks, where the size 
of the files may exceed the capacity of 
new backup disks. When BU runs out 
of disk space with this option active, it 
will close the current, partially written, 
backup file, set its attributes to DIR 
and R/O, then ask the operator to in- 
sert a fresh disk in the backup drive. 
When this is done, BU will open a se- 
quentially numbered fileref (e.g., 
FILE.TYP would become FILE-- 
01.TYP) and continue writing the cur- 
rent file to this new backup file from 
where it left off. The file in effect will 
be split across two or more backup 
disks, with no wasted disk space. 

Reassembling these split files is 
quite simple. In principle, you need 
only open the first file for write access, 
use lseek( ) to find its end, open the 
second file for read access, then ap- 
pend it to the first file. The C code re- 
quired to do this is left to the reader as 
an exercise. Alternatively, you can al- 
ways use the concatenation feature of 
DRI’s PIP.COM utility. The command 
line would be: 


PIP rebuilt.fil = first.fil,second. fil 


The disadvantage of this approach is 
that all three files must be on-line at the 
same time, which in a two-drive system 
means shuffling one of them to the des- 
tination disk before you can concate- 
nate and rebuild your original file. 
What BU does not address is archi- 
val file maintenance procedures. If BU 
is used with a dual floppy drive system 
and every working disk has its own 
backup copy, there is no problem. At 
the end of your programming session, 


simply insert the backup disk in the 
second drive, type “BU x y,” and every 
changed file is automatically updated. 
The backup disk becomes a duplicate 
of the working disk (although you do 
have to manually erase files that were 
deleted from the working disk). 

The problem arises when you want 
to maintain backup copies of hard disk 
files. Depending on whether or not the 
—H option is used, files will be on dif- 
ferent disks and possibly split across 
disks after you run BU. When the files 
later are changed again, it may happen 
that BU will archive them on different 
disks than the backup copies. BU auto- 
matically erases existing files with the 
same fileref and user number on the 
backup disk before copying a file, but 
it can’t do that when the file is on an- 
other disk. This leaves the responsibil- 
ity of deleting (or otherwise archiving) 
obsolete versions of files to the user. 

It is a very simple matter to extend 
BU so that a disk identifier file is added 
to each backup disk. This would be es- 
pecially useful when using multiple 
floppies to archive hard disk files; the 
identifier files could be numbered se- 
quentially. However, because disk nam- 
ing and storage procedures are very 
much a matter of individual taste, this 
has been left to the reader to 
implement. 


Etymological Nuisances 
BU will mishandle random access files 
that have been created with unwritten 
records or unallocated blocks or ex- 
tents. Because it uses the BDOS se- 
quential read service to access the files, 
BU will stop reading random access 
files at the first unallocated block or 
extent. Happily, very few programs be- 
have in such an unfriendly manner. 
(This is perhaps because most file copy 
utilities will balk at such files as well.) 
Speaking of file copy utilities, a few 
are available that, under certain cir- 
cumstances, will write a file without 
resetting its Archive attribute. One of 
these, oddly enough, is DRI’s own PIP- 
.COM. If a file on a disk has its Archive 
and Read-Only attribute bits set true, 
you can copy another file with the 
same fileref and user number to the 
disk with PIP only by using the “W” 
option. However, the BDOS will not re- 
set the Archive attribute bit after- 
wards, so BU will be unable to recog- 
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nize the file as changed. The only 
solution here is to be aware of the 
problem and, if necessary, to perform a 
manual file backup immediately after 
using the utility. 

BU accepts ambiguous file refer- 
ences only when a user number is also 
specified. In one sense, this is an aspect 
of the user interface design: a user nor- 
mally should be allowed access to files 
in One user area only, especially when 
operations using ambiguous filenames 
are being performed. More truthfully, 
BDOS Services 17 (Search for First 
File) and 18 (Search for Next File) 
will not accept file references for all 
user areas. Either they search for all 
files in all user areas (including erased 
files), or they search a particular user 
area only. The only way BU could find 
an unambiguous or ambiguously speci- 


fied file in all user areas would be to 
search the disk directory 32 times! 


Suggested Enhancements 

Those of you with the ambition and the 
time can extend BU to become a com- 
plete file archiving utility. If your sys- 
tem has a hard disk, BU could main- 
tain a catalog file that records each 
fileref and version number (without 
erasing previous versions), any perti- 
nent file statistics such as size in kilo- 
bytes and assigned file attributes, the 
backup disk identification number, the 
time and date the backup copy was 
made, and the operator who made the 
backup. Even if you don’t own a hard 
disk, you could maintain a similar sort 
of file on each backup disk for record- 
keeping purposes. As a starting point 
for such a program, you might consid- 


er the “Archive” program that is de- 
veloped in Kernighan & Plauger’s 
book Software Tools (Addison-Wes- 
ley, ISBN 1-201-03669-X). The pro- 
gram is presented in source code using 
RATFOR, which for all practical pur- 
poses is a variation on a theme of the C 
programming language. 

So, there you have it: a fully func- 
tional incremental backup utility for 
CP/M-80 and CP/M-86. Why DRI did 
not include an Archive option with PIP 
for these operating systems after going 
to the trouble of designing all the nec- 
essary features into them is a matter 
for future historians of computer soft- 
ware to ponder. In the meantime, I 
hope you enjoy using BU. DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 
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Ss 


Copyrights 


Canada 
Versions: pare 


Dates 


up" and copy therm 


attribute is documented, 
Usage: 


where x = 


Ian Ashdown 

byHeart Software 
2 - 2016 West First Avenue 
Vancouver, B.C. 


BU utilizes the undocumented 
of CF/M-80 Versions 2.x and CP/M-86 to automatically detect 
files that have been changed since the disk was last 
(with verification) 
program performs the same action as the “A” option of PIP 
under Digital Research’s MF/M 2, 


BU.C - A File Backup Utility for CF/M-80 & CF/M-86 


V6J 168 


December Sist, 1983 (Version 1.0) 
September 7th, 1984 (Version 1.1) 


“archive” 


BU xCzsafnji y C-AFHQSn] 


drive name of disk to be backed up 


for which the Archive 


Acknowledgment: DeSmet C code and suggestions for program 
improvement courtesy of Dr, 
Contributing Editor Anthony Sk jellum 


Dobb’s Journal 


Written for Aztec CII vi.06b (CF/M-B80) 
and DeSmet C8& v2.2 (CFE/M-86) 


file attribute. feature 


“packed 
to a backup disk. 


This 


kok KR KK OR kk OK OR Kk ko Ok OK OK Rk OR OK OK RO KK OK OK ok Ok KOK Ok OK Ok kk 


S 
x 


y drive name of backup disk 
and the optional arguments are: 
-A All files, regardless of status 
-F Fast copy (without verification) 
-H Hard disk (files may be split) 
-Q Query each file before backup 
-S System attribute copied to backup (Continued on next page) 
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* -n Backup USER ‘wn’ files only (90-31) 
* afn Any legal CP/M ambiguous fileref 
* (can only be used with -n option) 
*/ 

#include “stdio.h" 

#H#include “ctype.h" /* Contains macro for “isdigit()" */ 


/***% DEFINITIONS **#/ 


#define AZTEC 1 
#define DESMET 90 


/* Aztec CII v1.06b (CF/M-80) */ 
/* DeSmet C88 v2.2 (CP/M-86) */ 


#if DESMET 

t#define movmem(src,dest,len) ~mov(leny,src ,dest) 

#endi f 

#define ERROR -j 

define DEL -1 /* Deleted fileref flag */ 

#define ALL ~i /* All user numbers flag */ 

#define TRUE -1 

define FALSE 8) 

#define SUCCESS 0 

#define O_RDONLY @) 

#define USER ERR @) /* Specified fileref must only be used 
with -number command-line option */ 

#define BAD_FREF 1 /* Tllegal file reference */ 

#define BAD_ARGS 2 7* Tliegal command line */ 

#define BAD_OPT 3 /* Illegal option */ 

#define BAD_USER 4 /* Tilegal user number */ 

#define BAD_ORV 2 /* Illegal drive names */ 

#define SAME_DRV & /* Same drive name for output as input */ 

e#define OPN_ERR 8 /* File open error */ 

tdefine READ_ERR 7 /* File read error */ 

#define CLS_ERR 190 /* File close error */ 

#define BAD_VFY £4. /* File verify error */ 

define DIRIO & /* BOOS Direct 1/0 service */ 

#define RESET_DRV 13 /* BDOS Reset All Drives service */ 

#define SEL_DRV 1+ /* BUOS Select Drive service */ 

#define SRCHF i? /* BDOS Search Next service */ 

#clefine SRCH_N 18 /* BOOS Search Next service */ 

#de2efine GET_DRV 2° /* BOOS Get Default Drive service */ 

#cdefine SET_DMA 26 /* BDOS Set DMA Address service */ 

#define SET_ATT 30 /*® BOOS Set File Attributes service */ 

#define USER_CODE 32 /* BUOS Get/Set User Code service */ 


#define MAX _USER 32 /*® 32 user codes under CF/M (see DR’s 


documentation for BDOS Service 32) #*/ 


/*%** GLOBAL VARIABLES ##*/ 


char ent _drv, 
ent_user , 


CUP_LUSErs 


/* Entry drive code */ 
/* Entry user code */ 

/*® Current user code */ 
Je 


MAIN BODY OF CODE *x#x/ 


main(arge ,argv) 
int argc} 
char *#argvl]}3 


{ 
char in_dsk, /* Drive name of input disk */ 
out_dsk, /* Drive name of output (backup) disk */ 
indrv /* Drive code of input disk */ 
out_drvy, /* Drive code of output disk */ 
Seg_no,; /* Segment number for split files */ 


in-filelisi, /* 
out-filelisdi, /* 


Fileref of current input file */ 


Fileref of current output file */ (Continued on page 42) 
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Dr. Dobbs says, 


“WE HAVE 








“WINDOWS FOR C can offer you a convenient and reliable 
means of implementing windows in your text-handling programs... 


“The video output is fast and clean, showing no snow 
with either the graphics or monochrome display. 


“WINDOWS FOR C is documented in well-written 
and readable English, and it appears to be all there. 


“WINDOWS FOR C...is a very nice software package that has 
obviously been well thought out and very cleanly executed. 


“WINDOWS FOR C is a professionally-oriented set of 
programming tools...that we can recommend.” 


Full support for: 
@ IBM PC/XT/AT plus 
compatibles 


@ All memory models of 
Lattice C, CI-C86, Mark Wm. C, 
Aztec C, Microsoft C, Desmet C 
(PC/MSDOS) 


Plus: 


@ NEW: Driver interfaces for 
non-IBM displays 


@ Full source available 




















_ lan Ashdown (Dr. Dobb’s Journal, November 1984) 


More than a window display 
system, WINDOWS FOR C is a video 
toolkit for all screen management 
tasks. 

C SOURCE is provided for pop-up 
menus, viewing of multiple ASCII 
files within multiple windows, cursor 
control for vertical and horizontal 
scrolling, label printing, and text- 
mode bar graphs. 

An object-code library of over 
90 fully documented building-block 
subroutines allows you to construct 
functions to suit your needs. 

Once you've used WINDOWS 
FOR C, you will wonder how you 
managed without it. 


The Good News... 
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ADVANCED SCREEN MANAGEMENT 


With WINDOWS FOR C you can: 


e Establish any number of windows; 
clear, write, and control attributes 
of each window independently; write 
with word wrap and auto scroll; 
control all IBM color capabilities. 


e Overlay and then restore screens, 
highlight selected text, format and 
print with windows, and save win- 
dows to memory or disk. Memory 
management is automatic. 


Don’t wait. Order now. 





WINDOWS FOR C $195 
(specify compiler & version) 
Demo disk and manual $ 30 


(applies toward purchase) 
Dealer inquiries welcome 


A PROFESSIONAL SOFTWARE TOOL FROM 


CREATIVE SOLUTIONS 


21 Elm Ave., Box D12 e Richford, VT 05476 


Circle no. 27 on reader service card. 


802-848-7738 


Master Card & Visa Accepted 
Shipping $2.50 
VT residents add 4% tax 
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Cc» /* Scratch variable */ 

¥S, 7/* Scratch string pointer #*/ 

*bhuffer, /* Pointer to directory entry returned */ 
/* by “srch_file()" #7 

*srch_file(), \ 


emallocd)3 
/* File control blocks of current input and output files */ 


static char in_fcb(33], /*® (Automatically initialized */ 
outfcbl33l3 /* to zero by compiler) ¥*/ 


/* Structure for linked list of filerefs */ 


struct file_ref 


{ 
char nameli2]3 7* File reference */ 
struct file_ref *next3 /* Pointer to next instance #*/ 
+ root, /* Start of linked list */ 
*frefil, /* Scratch pointers to */ 
*fref_2}3 /*® linked \list instances */ 


/*® Initialized file control block for "“srch_file()". This FCB 
- is for a fully ambiguous fileref that causes “srch_file()" 
to return all directory entries for the current default 

drive. */ 


Static: char (cB ss 860" 92 Pe Fy er gs a 2 
eee A Pe Se rye ty! gees Peet 9949 ,OF5 


int file_cnt = QO, /* Count of file to be backed up */ 
dup_flag, /* Duplicate fileref flag */ 
ali_files, /* All_files flag (cmd-line option) */ 
fast_copy, /* Fast copy flag (cmd-line option) #*/ 
harddisk, /* Hard disk flag (cmd-line option) */ 
query, /*® Query flag (cmd-)ine option) */ 
system, /* System flag (cmd-line option) */ 
USEr_No, /* User number (amd-line option) */ 


next_flag = FALSE3/* Flag to indicate to "“srch_file()" 
that a “search next" is required */ 


register int i) 3 /* Loop indices */ 
long begin, /* Input file position variahlies */ 
end; 


/* Display program header */ 

printf ("\nBU Version 1,.1")3 

printf (" 7 Copyright 1983, 1984"); 
printf (” byHeart Software\n\n")3 


/* Initialize command-line options */ 


allufiles = FALSE: /* Copy only non-archived files */ 

fast_copy = FALSE3 /* Copy files with verification */ 

harddisk = FALSE}: /*® Files will not be split across backup 
disks if remaining capacity of backup 
disk iS less than current file size */ 

query = FALSE? /* Backup without query */ 

system = FALSE3 /* Assign directory attribute to al} 
hackup files */ 

usereino = ALLS; /* Backup files in all user areas */ 


7/* Farse command line for user-selected options (if any) */ 


iftarge < 3) (Continued on page 44) 
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PRESENTS 


CP/M 


FOR. THE 
int 
I.Q. SOFTWARE, in one historic move, brings more proven pro- 
grams to the Macintosh than have existed to date. In the giant world of 
CP/M based software, CP/M FOR THE MACINTOSH delivers 
the same friendly stand-alone environment to the software developer 
(professional programmer). If you are wondering why so many 
developers know and use CP/M it is because CP/M is powerful, easy 
to learn and easy to use. So easy to use that almost 1 MILLION 
USERS have CP/M based systems using CP/M based programs and 


enjoy these same benefits that you will with CP/M FOR THE 
MACINTOSH. 


2229 East Loop 820 North 
i OF SOFTWARE... Fort Worth, Texas 76118 


(817) 589-2000 





™ 





Sy rackene a registered trademark of Digital Resea 
intosh is a registered trademark of Apple eee te 
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error (BAD_ARGS ,NULL) $3 /* Tllegal command line */ 
if(arge > 3) 
{ 
i= 33 /* Start with third command-line argument #*/ 
whiledci < arge) 
{ 
if(*argv[li] != ’-’) 
error (BAD_OPT,argvlil)3; /* Missing leading ’-’ */ 
s = argvlijd+1;3 
while(#s) 


{ 

if(#*#s == ’A’) /® Check for all_files option */ 
allefiles = TRUE} 

else if(*#s == °F’) /* Check for fast copy option */ 
fast_copy = TRUE; 

else if(*¥s == “’H’) /* Check for hard disk option #*/ 
harddisk = TRUE3$ 

else if(*s == ’Q’) /* Check for query option */ 
query = TRUES3 

else if(*s == ’°S’) /* Check for system option */ 
system = TRUES 

else if(isdigit(*s)) /%* Check for user number option */ 

{ 
USer_no = *#54++ - %073 
ifCisdigit(*s)) 

userino = useruwno * 10 + *54++ - 'Q0’3 
if(useruno ¢( 9 11 user_no >) 31) 
error (BAD_USER ,argvlid)3; 

continue}; 

+ 

2)se 
error (BAD_OPT ,argvlid)3 

S++} 

l++}3 


2 

/* Validate input parameters */ 

if(*(argv[fijJ4+1) != ‘\O’) /#* Check for specified fileref */ 
{ 


if(user_no == ALL) /* Can only use with specified */ 
error (USER_ERR,NULL)3; /* user number (-n option) */ 


/* Modify “fcbhll" to incorporate fileref */ 


if(copy_fref(fcbh,argvC€11]) == ERROR) 
error (BAD_FREF ,argv[11)3 
; 
if(*argvlljd ¢ ’A’ {i #argvE£[1] > ’F’ 33 
*#argvl2] < “AS iti *argvl2] >) ‘P’) 
error (BAD_DRYV ,NULL) 3 /*® Illegal drive names */ 
if(*argvl1ij == *argvl2]) 
error (SAME_DRV,NULL) s /* Drive names are same */ 


/* Save entry drive and user codes */ 


entidryvy = bdos(GET_DRV) 3 
entuser = bdos(USER_CODE ,Oxff)3 


/* Calculate input and output drive codes */ 


in-drv = (in_dsk = *argvCijJ) - ‘A’ + 13 
out dry = (out-dsk = #argv[2]) - ‘A’ + 13 


/* Set default drive to input drive */ 
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bdos(SEL_DRV,inodrv-1) 3 


/* Set user code to “user_no” if -n option specified */ 


if(useruno != ALL) 
bdos(USER_CODE ,user_no) 3 


/* Read first 12 bytes of updated active directory entries into 
linked list of filerefs. If first byte of entry is Oxre5, 
then file has been erased. */ 


root.next = NULL} /* Initialize linked list root */ 
frefii = &root; /* Initialize linked list pointer #*/ 
while(buffer = srch_file(fcb,next_flag)) 

{ 


/* Bit 7 of third filetype byte (t3’) in directory entry 
is the Archive attribute indicator. The BDOS sets this 
bit to zero whenever it updates a directory entry. #*/ 


if(bufferlO] != OxeS &R& 
(buffer(lO] == useruno ii useruwno == ALL) && 
(!(bufferlil)] & Ox8O) it: all_files)) 
fref_i-)dnext = /* Allocate space for fileref instance */ 
(struct file_ref *) malloc(sizeof (struct file_ref)); 
frefil = fref_il-dnext;3 /* Assign space to instance */ 


movinezn( buffer, frefol-)name,l12)3 /* Move fileref to */ 
/* linked list instance */ 
fref_i-)next = NULL; /* Indicate current end of list */ 
+ 
nexteflag = TRUE} /* Only first call to "“sreh_file()”" #/ 
/* should be made with “next_flag” */ 
> /* set to FALSE */ 


/* If no files have heen backed up +++ */ 


if(!root.next) 7* Null “root.next"™ indicates no files have */ 


{ /* been changed */ 
printf("°NO FILES HAVE BEEN UFDATEL") 3 
if(user_no != ALL) 

printf(" in user area #d\n" ,user_no) 3 
e)se 


putchar(’\n’)3 
reset(); /* Reset user and drive codes to entry values */ 
@xit(da); 


= 
2 


/* There may be duplicate filerefs in linked list due to some 
files occupying more than one extent on the disk. These 
duplicates must be marked as “deleted” in the list. 
(Duplicate filerefs with different user codes are valid.) */ 


/* For all filerefs eee ¥/ 


fref_il = &roots /* Initialize a linked list pointer */ 
while(frefil- next) 


fref_l = fref_l-)next; /* Root instance is NULL entry */ 
dup_flag = FALSE} /* Reset duplicate fileref flag */ 


/* For all preceding filerefs «e+ */ 


fref_2 = &root; /* Initialize another linked list pointer #/ 
frefi2 = fref_2-)dnext3 /* Skip root instance #*/ 
while(frefi2-)next != frefel-dnext) 

{ 


/* Compare filerefs (ignore deleted filerefs and different 
user codes) */ 


(Continued on next page) 
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if(fref_2-)namelO] != DEL && frefuil-)namelO] == fref_2?-)namel[O0]) 
if(!istrncmp( fref_i-)name+1, fref2-)name+1,11)) 


{ 
dup_flag = TRUE3$ /* Indicate duplicate fileref */ 
break 5 
> 
frefi2 = frefi2-)next; 
+ 
if(dup.flag == TRUE) 
fref_i-)name[O] = DEL; /* Delete if duplicate fileref */ 
2)se 
file.cnt++3 /* Increment file count */ 


/* Display file copy header */ 
printf ("Number of files to be copied: ¥d\n\n",fileent); 


printf ("User: Files being copied to Drive ¥c:\n\n", 
out _dsk) 3 


/* Initialize current input and output fileref templates #*/ 
in-filelO] = in_dsk; 

out ufileCO] = outudsk3 
in-filelid = out_filel1l] = ’3’ 
in.fileliO] = out_filelio] = ” 
in-filelli4+] = out_filelidd] = 


/* Initialize current input and output FCKR tempiates #*/ 


in-fchlO] = in_drv; 
out_fchlO] = outudrv; 


/* For all validated filerefs do ++ */ 


for(curwuser = O; cur wuser «¢ MAX_USER; cur_user++) 


{ 
if(userwno != ALL) 
if(cur_user != user _no) 
continues 
bclos (USER_CODE ,cur_user>) 3 /* Set user code to “cur_user"” #*/ 
frefil = &root; /* Initialize linked list pointer */ 
whileCfrefol- next) 
{ 
fref_l = frefil-)nexts /* Root instance is NULL entry */ 
if(fref_i-)dnamelO] == cur_user) 
{ 


/* Update the current input and output FCB’s */ 


movmen( frefeol-dname+l,in_fchb+i,11)3 
movmenm( frefeol-dnamet+l ,out_fcb+1,11)3 


/* Reset the Read-Only and System attribute bits of the 
FCB’s so that the file can be copied and displayed 
(unless the “system” flag is TRUE) #/ 


OuUut_fCbL9] R= Ox7Ff}3 /* Read-Only attribute */ 
if(!system) 
out fcbC10] &= Ox7f3 /* System attribute */ 


/* Set the Archive attribute bit of the FCB’s to indicate 
that the file has been backed up */ 


in-fcbli1l] i= Ox8o; 
out—fcblild] i= Ox8o; 


(Continued on page 48) 
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ALL SALES ARE MADE SUBJECT TO THE TERMS OF OUR 90 DAY LIMITED WARRANTY. A COPY OF THIS WARRANTY IS AVAILABLE FREE, ON REQUEST. 


DIGITAL RESEARCH COMPUTERS 


9 


IBM PC ADD ON BOARDS 
NOW IN STOCK! 


RIO PLUS II™ — Multi-function board with 2 RS232 serial ports (1 standard, 
1 optional), parallel 1/O port, game port and clock/calendar. Comes with 
64K memory (expandable to 384K) and PC Accelerator. 

STB-RIO + Il 64 List $395 $286.00 


GRAPHIX PLUS II™ 
Multi-function video board featuring monochrome text, full screen 
monochrome graptics, RBG color, composite b&w video, a parallel port, a 
light pen interface, : \d an upgradable clock option. 

STB-G, *X List $495 $363.00 


SUPER RIO™ 

RAM-I/O multi-function board with 64K memory (upgrad-able to 768K), 

two serial ports, parallel printer port, game port and clock/calendar. 
STB-SRIO-64 List $419 $294.00 


All above boards come with “PC Accelerator’ which is a RAM Disk 
Emulator and Printer Spooler that vastly increases your processing speed. 
All boards fully assembled and tested, and are warranted by the 
manufacturer for 1 year! 


SPECIAL OFFER: Buy any two or more of the above boards and take an 
additional $10 per board discount 


256K S-100 SOLID STATE DISK SIMULATOR! 
WE CALL THIS BOARD THE “LIGHT-SPEED-100” BECAUSE IT OFFERS 
AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 
WHEN COMPARED TO A MECHANICAL FLOPPY D!SK DRIVE. 


PRICE CUT! °°" 








STB Systems, Incorporated 






















256K on board, using + 5V 64K 
DRAMS. 

Uses new Intel 8203-1 LSI Memory 
Controller. 

Requires only 4 Dip Switch Selectable 
1/O Ports. 

Runs on 8080 or Z80 S100 machines. 
Up to 8 LS-100 boards can be run 
together for 2 Meg. of On Line Solid 
State Disk Storage. 

Provisions for Battery back-up. 
Software to mate the LS-100 to your 
CP/M* 2.2 DOS is supplied. 

The LS-100 provides an increase in 
speed of up to 7 to 10 times on Disk 
Intensive Software. 

Compare our price! You could pay 
up to 3 times as much for similar 
boards. 


$25900 


#LS-100 (FULL 256K KIT) 


THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER 
SERVICES. seeeatacaciies a 
FEATURES: 

* Uses a Z80A and 6845 CRT 
Controller for powerful video 
capabilities. 

RS232 at 16 BAUD Rates from 75 
to 19,200. 

24 x 80 standard format (60 Hz). 
Optional formats from 24 x 80 

(50 Hz) to 64 lines x 96 characters 
(60 Hz). : 
Higher density formats require up to 7 
3 additional 2K x 8 6116 RAMS. : 
Uses N.S. INS 8250 BAUD Rate Gen. | 
and USART combo IC. 

3 Terminal Emulation Modes which 
are Dip Switch selectable. These 
include the LSI-ADM3A, the Heath 
H-19, and the Beehive. 

Composite or Split Video. 

Any polarity of video or sync. 
Inverse Video Capability. 

Small Size: 6.5 x 9 inches. 

Upper & lower case with descenders. 

7 x 9 Character Matrix. 

Requires Par. ASCII keyboard. 


WITH 8 IN. 
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BLANK PCB 
(WITH CP/M* 2.2 
PATCHES AND INSTALL 
PROGRAM ON DISKETTE) 


$6995 


(8203-1 INTEL $29.95) 























BLANK PCB WITH 2716 
CHAR. ROM, 2732 MON. ROM 


$4995 


SOURCE DISKETTE - ADD $10 
SET OF 2 CRYSTALS - ADD $7.50 
SOURCE DISK! 


(CP/M COMPATIBLE) $9995 __.. 
Digital Research Computers 


P.O. BOX 461565 » GARLAND, TEXAS 75046 - (214) 225-2309 
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64K S100 STATIC RAM 
$179%° 
NEW! 


150 NS ADD $10 


BLANK PC BOARD 
WITH DOCUMENTATION 
$49.95 
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FEATURES: 
SUPPORT ICs + CAPS ~* Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
$17.50 * Fully supports IEEE 696 24 BIT Extended 
; : Addressing. 
* 64K draws only approximately 500 MA. 
FULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 


SPEED APPLICATIONS.) 
SUPPORTS PHANTOM (BOTH LOWER 32K 
AND ENTIRE BOARD). 
2716 EPROMs may be installed in any of top 48K. 
Any of the top 8K (E000 H AND ABOVE) may 
be disabled to provide windows to eliminate 
any possible conflicts with your system monitor, 
FOR 56K KIT $165 disk controller, etc. 
Perfect for small systems since BOTH RAM and 
EPROM may co-exist on the same board. 


TESTED ADD $50 BOARD may be partially populated as 56K. 
64K SS-50 STATIC RAM 


FULLY SUPPORTS THE 
NEW IEEE 696 S100 
STANDARD 
(AS PROPOSED) 
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FEATURES: 
Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
Fully supports Extended Addressing. 

64K draws only approximately 500 MA. 

200 NS RAMs are standard. (TOSHIBA makes 
TMM 2016s as fast as 100 NS. FOR YOUR HIGH 
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DOCUMENTATION 
$52 
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+ SPEED APPLICATIONS.) 
go Bal a CAFS * Board is configured as 3-16K blocks and 8-2K 
: seo any 64K block) for maximum 
exibility. 
FULL SOCKET SET * 2716 EPROMs may be installed anywhere on 
$15.00 Board. : 
: * Top 16K may be disabled in 2K blocks to avoid 
56K Kit $169 any !/O conflicts. 
64K Kit $199 * One Board supports both RAM and EPROM. 






RAM supports 2MHZ operation at no extra 























ASSEMBLED AND charge! 
* Board may be partially populated in 16K 
TESTED ADD $50 inickerheats. ae Sr ee 






32K $100 EPROM/STATIC RAM 
FOUR FUNCTION BOARD! 


Me ge 







EPROM Il 
FULL 








BLANK 
PC BOARD 
WITH DATA 

$39.95 








EPROM KIT 
$69.95 


A&T EPROM 
ADD $35.00 





SUPPORT 
Ic’s 
PLUS CAPS 
$16 

















FULL 
SOCKET SET 
$15 


We took our very popular 32K S100 EPROM Card and added 
additional logic to create a more versatile EPROM/RAM Board. 


FEATURES: 
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This one board can be used in any one of four ways: 

A. As a 32K 2716 EPROM Board 

B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 

D. As a 32K Static RAM Board 

Uses New 2K x 8 (TMM2016 or HM6116) RAM's 

Fully Supports IEEE 696 Buss Standard (As Proposed) 
Supporis 24 Bit Extended Adressing 

200 NS (FAST!) RAM’S are standard on the RAM Kit 
Supports both Cromemco and North Star Bank Select 
Supports Phantom 

On Board wait State Generator 

Every 2K Block may be disabled 

Addressed as two separate 16K Blocks on any 64K Boundary 
Perfect for MP/M* Systems 

RAM Kit is very low power (300 MA typical) 


32K STATIC RAM KIT — $109.95 


For RAM Kit A&T — Add $400 


TERMS: Add $3.00 postage. We pay balance. Orders under $15 add 75¢ 
handling. No. C.0.D. We accept Visa and MasterCharge. Tex. Res. add 
5-1/8% T ax. Foreign orders (except Canada) add 20% P & H. Orders over 
$50, add 85¢ for for insurance. 
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WE ARE NOT ASSOCIATED WITH DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 


Circle no. 33 on reader service card. 


Ar chi ving F, iles Lis ting (Listing Continued, text begins on page 36) 


/* Move the fileref from the FCB’s to the initialized 
input and output fileref templates */ 


movmem(in_fcb+1,in_file+2,8)3 /* Filename move */ 
movmen(out_fcb4+l ,out_file+2,8)3 
movmem(infcb+9,in_file+11,3)3 /* Filetype move */ 
movmem(out_fcb+9 ,out_file+11,3) 3 


/* Strip high order bits off filerefs to form proper 
ASCII characters */ 


for(j = 23 gj ¢= 133 j++) 
{ 
in-filel jj] &= Ox7f3 


out_filelCy] &= Ox7f3 
3 


/* Display the filerefs #*/ 
printf”. £2d 45 --) 45" ,cur_user,in_file,out_file)3 


/* Query operator for backup if indicated by “query” 
flag */ 


if (query) 
{ 


printf(" O.K. to backup? 3 
PPC = ince t)) ee fy’ tbe Se ¥! 9 
puts("Yes")3 
else 
¢ 
puts("No")3 
continues 4* Go do next fileref if "No" */ 
? 
> 
else 


putchar(’\n’ )3 
/* Copy file from the input disk to the output disk */ 


if (hard disk) /* Split file across backup disks if */ 


{ /* necessary */ 
begin = OL}; /* Initialize file position pointer */ 
Seg_no = QO3 /* and split file segment number */ 
do 


/* Reset the Read-Only attribute of the output file 
(if it exists) so that the input file can he 
copied to it */ 


bdos(SET_ATT ,out—fch) $ 


end = copy_file(in_file,out_file,begin)s 
if(!fast_copy) /* Verify file unless -F selected */ 
verify_filelin_file,out_file,begin) 3; 


/* Set the Read-Only attribute of the output file */ 


out-fcbl9] i= OxBo; 
bdos(SET_ATT ,out_fcb)3 


Out—_fcbl9] &= Ox7Ff3 /*® ¢ee and reset the fcb */ 

iffend != NULL) 

 /* File has been partially written on current 
backup disk - new disk required to continue */ 
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new disk (out_file,nard_disk) 3 


/* Append segment number to filename of output 
fileref (e.q. - B:FILE.TYP will become 
B:FILE--O1.TYF) */ 


S2gGNO++3 
for(j = 23 g 4= 73 tt) /* Change spaces to */. 
Ptteutautitet gl eet yo see CMeracter. */ 

outfileCyj] = ’-%3 
out—filef8] = seg_no/10 + ‘0’ 
out _filel9] = seg_no#10 + ’0Q’ 


/* Append segment */ 
/* number */ 


we we 


/* Display filerefs again */ 


printf(" 2d %5 --) &45\n", 
cur_user,in_file,out_file) 3 
oo = end; 
iit ietone '= NULL); =/* Loop until file is written */ 
ine 


/* Reset the Read-Only attribute of the output file 
(if it exists) */ 


bdos(SET_ATT ,out—fcb) 3 
if(copy_file(in_file,out_file,OL) |= NULL) 
( 


/* Disk was full - erase partially written file, back 
up fileref pointer and rewrites file to new disk */ 


unlinkCout-filed 3 

new disk (out-file,hard_disk) 3 
i--; 

continues 


ue 


if(!fast_copy) /* Verify file unless -F selected */ 
verify_file(in_file,out_file,OL) 5 


/* Set the Read-Only attribute of the output file */ 


out—fcbl9] t= Ox8O}3 
bdos(SET_ATT ,out_fcb) 3 
+ 


/* Set the Archive attribute of the input file to 
indicate that the file was successfully backed up */ 


bedlos(SET_ATT ,in_fcb) 3 
} 
3 
} 


reset () 5 /* Reset user and drive codes to entry values */ 
+ 
/*#** FUNCTIONS ***/ 


/* Search for first or next directory entry */ 


char *srch_file(fcb_ptr,next—flag) 


char *#fchuptr3 /* Fointer to file control block */ 
int nextuflag; /* Flag to indicate “search next” */ 
{ 


static char sfecur[32], /* Current directory entry buffer */ 
sf_fcb(36]3 /* File control block buffer */ 


(Continued on next page) 
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Ar chi ving F, Iles Lis ting (Listing Continued, text begins on page 36) 


} 


int index, /* Index of directory entry in DMA buffer */ 
HOTS /* Pointer to directory entry in DMA buffer */ 


bedos (SET_TIMA ,Ox80) 3 /* Set DMA address to 80h */ 
if(!next—flag) 
{ 
mnovnem(fcbuptr,sf_fcb,146)3; /* Initialize FCB buffer */ 
if((index = bdos(SRCH_F,sfifcb)) == Oxff) /* Find first */ 


return NULL} /* Return NULL if unsuccessful */ 
3 
else 
if((index = bdos(SRCH_N,NULL)) == Oxff) /* Find next */ 
return NULL3 /* Return NULL if unsuccessful */ 


/* BOOS services 17 and 18 leave four consecutive directory 
entries of 32 bytes each in the 128-byte DMA buffer and also 
returns an index value of O, ly, 2 or 3 to indicate the 
correct directory entry in the accumulator. The “bdos()" 
function returns this index value. */ 


ptr = 0x80 + index * 323; /* Calculate bi wire to directory 
entry */ 
movmem(ptr,sfcur,32)3 /* Move directory entry to current 
directory entry buffer */ 
return sfecur3 


/* Copy file starting at “offset” from beginning */ 


copy—file(in_file,out_file,offset) 


char *in_filey, /* Input fileref */ 


*#out_file; /* Output fileref */ 
long offset; /* Input file position offset */ 
{ 


50 


register int in-cnt, /* Character counts for unbuffered 1/0 */ 


out—cnt3 
int fd.in,  ¢*% Input file descriptor #*/ 
fd out, /* Output file descriptor */ 
full.disk = FALSE; /* Full disk flag */ 


char *buffer, /* Input file buffer */ 
*buffiptr, /* Pointer to current position in “bufferll]” */ 
¥malloc()3 


unsigned bufusize = 32768; /* Initial memory allocation size */ 
/* “read()” accepts a maximum of 32768 bytes at a time. Allocate 


as much memory as possible up to this limit for the input 
buffer, using 128 byte decrements. */ 


do 
if(buffer = malloc(buf_size)) 
break3 
while(bufisize -= 128) 3 


/* Open input file for unbuffered Read-Only access */ 


if((fdoin = open(in_file,O_RDONLY)) == ERROR) 
error (OFN_ERR,in_file) 3 


7/* Create the output file by first deleting it (if it 
exists), then opening it for unbuffered Write-Only 
access. */ 


(Continued on page 52) 
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Ar C Ai ving F, Iles Lis ting (Listing Continued, text begins on page 36) 


if((fd_out = creat(out-file,NULL)) == 
error (OFN_ERR ,out_file) 3 


ERROR ) 


/* Initialize input file position pointer to “offset” */ 
loeek(fd_in,of fset ,O)3 


/* Copy input file to output file by buffering data 
through “bufferll” */ 


do 
{ 
if((in-cnt = read(fd_in,buffer,buf_size)) == 
error (READ_LERR,in efile) 3 


ERROR ) 


buffeptr = buffers /* Initialize “bufferll]” pointer */ 
outecnt = QO} /*® and “out cnt” */ , 
do 
{ 
/* Write contents of “bufferfll" to output file in 128 
byte records until either the buffer is written or a 


write error occurs. Since the Oxla (*Z) character 
uses as an EOF marker is a valid file character 
ASCII files, “read()”" always reads the last 128 byte 
record of a file under CF/M. */ 


if(write(fdiout ,buffeptr,128) != 128) 


/* The standard implementation of “write ()”" does not 
distinguish between a full disk or directory and a 
write error in its returned error code. Thus, 
assumed that an error means a full disk/directory. 


full_disk = 

break3 
buffiptr += 128; 
outucnt += 1283 


TRUE S$ 


/* Increment "bufferll]" ptr #*/— 
/* Update count of chars written */ 
} 
while(in-cnt > outuecnt) 3 
offset += outecnt; 
if(fulloudisk == TRUE) 
break 3 


/* Until) end of "bufferlli" *7 


— 
J 


while(Cini-cnt == bufesize) 3 /* Until end of file */ 

free (buf fer) 3 /* TDLeallocate buffer space */ 

if(close(fdein) == ERROR) /* Close the files */ 
error (CLS_ERR,in_file}) 3 

if(close(fd out) == ERROR) 


error (CLS_ERR ,out—file) 3 


4* If full disk return new 
/* return NULL to indicate 


offset for input file, else */ 


return (fulludisk ? offset =: NULL)} 


3 
/* Compare portion of input file starting at “offset” 
ning of file with output file */ 


verify_fileCin_file,out_file,offset) 
har *#in_filey, /* Input fileref */ 
out files /* Output fileref */ 
lang offset; /* Input file position offset */ 
¢ 
register int 


matchcnt 3 /* Scratch variable */ 
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*/ 


/* Update input file position pointer */ 


completion of file copy operation */ 


from begin- 
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int out cnt, /* Character counts for unbuffered 1/0 */ 
fdiin, /* Input file descriptor */ 
fd_outs /* Output file descriptor */ 


char *buf fer, /* Dynamically-allocated buffer */ 
*#inptr, /* Input file buffer pointer */ 
*out ptr, /* Output file buffer pointer */ 
#malloc()3 


unsigned buf size = 652803; /* Initial memory allocation size */ 


/* “read()" and “write ()” accept a maximum of 32768 bytes at a 
time, Allocate as much memory as possible up to this limit 
for both the input and output buffers, using 256 byte 
decrements (128 bytes for each buffer). */ 


do 
if(buffer = malloc(buf—size)) 
break}; 
whileCbufesize -= 256)3 


/* Divide “bufferll" in two: for-“in.ptr” and “outuptr'. #/ 


hufisize /= 23 


if((fdoin = open(in_file,O_RDONLY)) == ERROR) /* Open files */ 
error (OFPN_LERR,in file) 3 

if((fd_out = open(loutfile,O_RDONLY)) == ERROR) 
error (OPN_ERR ,out_file) 3 

lseek(fdiin,offset,O)3 /* Initialize file position pointer */ 


/* Read in characters from both files and compare */ 


do 
{ 
ineptr = buffer; /* Assign buffer pointers */ 
outueptr = ineptr + buf_size; 
if(read(fd_in,in_ptr,buf_size) == ERROR) 
error (READLERR, in file)s 


if(Cout_ecnt = read(fd_out ,out-ptr,buf_size)) == ERROR) 
error (READ_LERR ,out_file)3 

match_cnt = out cnt; 

while (match_cnt--) /* Verify character */ 
if(*#in_eptr++ != *#0Out_ptr++) /*® By character, and */ 
{ /* delete the output */ 

if(close(fdeout) == ERROR) /* file if they fail */ 
error(CLS_ERR ,out efile); /* to match */ 


unlink (out file) 5 
error (BAD_VFY ,out-file) 3 


} 
while(outccnt == bufesize); /*® Until end of output file */ 
free(buf fer) 3 /* Deallocate buffer space */ 
if(close(fd_ein) == ERROR) /* Close the files - verifi- */ 
error(CLS_ERR,in file) 3 /* cation was successful */ 
if(close(fdeout) == ERROR) 


error (CLS_ERR ,out_file) 3 


/* Copy fileref to file control block */ 


copy—fref(fcb,fref) 


char *fcbh, /* Pointer to file control block */ 
*fref 3 /* Pointer to fileref */ 
{ 
char C3 /* Scratch variable */ 
int i, /* Fileref index variable */ 
ue /* FCB index variable */ 
Ky» /* Scratch variable */ 
done 3 /* Loop break flag */ 
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Ar C. hy ving Files L IS ting (Listing Continued, text begins on page 36) 


af Ctretgydd fees he Trefi2d Set NO) 
return ERROR; /#* No drive code separator or null fileref #*/ 


7* Calculate drive code from drive name and put in FCR */ 
febCO] = freflO] - ‘A’ + Ls 
/* Frocess remainder of fileref */ 


done = FALSE; 


for(i = 2,gj = Lyi (= Dsi+tey j++) /*® Skip drive code in */ 
{ /* fileref */ 
switch(c = freflild) 
{ 
case ’,’3 /* Filetype separator */ 


if(i 2= 2) 
return ERROR; /* Null filename */ 
for( 3 gy €23 83 y+) 


febC gj] = ’ ’3 /* Pad filename with trailing blanks */ 
don= = TRUE} 
break 3 
case '#’? /* Match any following string */ 
for¢é 3; jy ¢= 83 y++) 
febl jl] = ’?’3 /* Fad filename with trailing */ 
1++3 /*® question marks */ 
cdore = TRUE? 
break} 
case ‘’\O7?3 /* End of fileref #*/ 


for( 3 g ¢€2 113 j++) /* Pad FCB with trailing spaces */ 
Tei js 
return SUCCESSs 
case ’ ,’ 
case 
case 
case 
case 
case 
case 
case 
case “)’ 
return ERROR 
defaults: 
LAC ee OFS eRe ey eee 
feobl yj] = c3 /* Copy character from fileref to FCB */ 
2)se 
return ERROR; /* Nonprintable character or ’ ’ */ 


/* Tilegal filename characters */ 


~ ~ ~ ~ . ~ 
| oe | ii oe we “N 
» ~ ~ ~ ~ ~ 


~ 
~ | 
~ 
ee 86 Of 66 99 8a 98 se fe 


> 
if (done) 
break 3 
> 
c = freflid; 
if((c = frefflild) == ’\Q’) /* End of fileref */ 
4 
for( 3 g €= LL 3 g++) /* Pad FCB with trailing spaces */ 
a: SN Re ede 
return SUCCESS; 
? 
else if(c == ’,%) /*® Filetype separator */ 
\ 
1++3 
K = 1 + 2} /*® Set limit of 3 characters */ 
for( 3 i <= Ky itty j++) 
{ 
done = FALSE} 
switch(c = frefCil) 
(Continued on page 56) 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly lanquage for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
lsc) SS mS Se eine a $150 


EPROM Programmers let you pro- 
‘gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
-modules! On-board intelligence provides 
menu-based setup for 34 different 
EPKOMS, EEPROMS and MP Us (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS-232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 
load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except “A” versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 


Model 7956 and 7956-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus RS- 
232 interface. 

EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 


5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 
GDX Driver Software 95 
481 8748 Family Socket Adaptor 98 
511 8751 Socket Adaptor 174 
755 8755 Socket Adaptor 135 


CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining object file, 
changing load addresses, extracting parts 
of files. Converts to and from Intel, | 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, TI, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
Pes eo een ees $250 


Ask about UNIX. 


Circle no. 10 on reader service card. 


Would you hire an entire band when 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 


68000 CROSS-ASSEMBLER — With 
exhaustive field testing completed, our 
68000 assembler is available for imme- 
diate shipment. XMAC68K supports 
Motorola standard assembly language .for 
the 68000 and 68010. Macros, cross- 
reference, structured assembly statements, 
instruction optimization and more. Linker 
and librarian included. Comprehensive, 
well-written manual. 


To find out more, call us toll-free. 


1-800-448-8500 
(in the U.S. Except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 
quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research **Trademark of Microsoft 


AVOCET 
SYSTEMS INC: 


Sales and Development: 
10 Summer Street 

P.O. Box 490, Dept. 
Rockport, Maine 04856 
(207) 236-9055 Telex: 467210 AVOCET CI 


Corporate Offices: 
804 South State Street 
Dover, Delaware 19901 
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Ar chi ving F, iles Lis ting (Listing Continued, text begins on page 36) 


{ 
case ‘#’: /* Match any following string */ 
tOP 43 pte LES eed 
TCHE Gd: =" T3 /* Pad filetype with trailing */ 
return SUCCESS: /*® question marks */ 
case ‘\O’:. /* End of fileref */ 
for( 3; gj «= 1LLy j++) /%* Pad FCB with trailing */ 
TCHR) SF /* spaces */ 
return SUCCESS}; 
case ’.’: /* Tllegal filetype characters */ 
case ‘3°32 
Case / 4’ 
Case ‘3’: 
case ‘='3 
case ’C’: 
case ’]’: 
case ‘_’: 
case '¢'3 
case ’)’: 
return ERROR 3 
default: 
S116. Pee A SO Ae 
febC€j] = cy; /%* Copy character from fileref */ 
else PRONG FEE AL 
return ERROR; /* Nonprintable character or ’ ’ #/ 
> 


) 
/* Return ERROR if filetype too long */ 
return (frefflil == ’\O’ ? SUCCESS : ERROR); 


zise 
return ERROR; /* Filename too long ¥*/ 
3 


/* Error report */ 


arror(n,s) 
nt nz /*® Error code #*/ 
char *s}3 /* Fointer to optional string */ 


switch(n) 
{ 
case USER_ERR: 
printf ("\0O07#* ERROR - No user number specified **\n")3 
break$ 
case BAD_FREF: 
printf("\O07*#* ERROR - Illegal file reference: ¥5 *#\n",5)}3 
breaks 
case BAD_ARGS: 
printf("\O0O7#* ERROR - Illegal command line *#*\n")3 
break; 
case BAD_OFT: \ 
printf("°\O0O7*#* ERROR - Illegal command line option:"); 
printf(” 2s *##\n" ,s8)5 
breaks 
case BAD_USER: 
printf("\O07#* ERROR - User number must be inside range")3 
OF iT Ot OO 4B FeNAS Ds 


break3 
case BAD_DRV: 
printf("\O07**# ERROR - Drive names must be inside range")3 


Bra. 30). Ae. Sto PENA 7S 


(Continued on page 58) 


56 Dr. Dobb’s Journal, January 1985 



















C 
UTILITY LIBRARY 


The C UTILITY LIBRARY is a set of 200+ functions designed 
specifically for the PC software developer. Use of the Library will 
speed up your development efforts and improve the quality of 
your work. 


e BEST SCREEN HANDLING AVAILABLE 
e WINDOW MANAGEMENT, COLOR GRAPHICS 
e DOS 2 DIRECTORIES, COMMUNICATIONS 

e KEYBOARD, PRINTER, TIME/DATE 

e EXECUTE PROGRAMS, BATCH FILES 

e STRINGS, BIOS, AND MUCH MORE 

e ALL SOURCE INCLUDED—NO ROYALTIES 


Available for Microsoft/Lattice $149, Computer Innovations 
$149, Mark Williams $149, DeSmet $99. Add $3 shipping. N.J. 
residents add 6% sales tax. Visa, MC, checks—10 days to clear. 
Order direct or through your dealer. Dealer/Distributor inquiries 
welcome. 











ESSENTIAL SOFTWARE, INC. 
(914) 762-6605 
PO. Box 1003 

Maplewood, N.J. 07040 
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Here’s what Microsystems had to say about 
our original product: “QBAX will probably 
become one of those legendary programs that 
everyone eventually buys. It performs a func- 
tion useful to anyone with a CP/M system, 
does it well and quickly, is understandable to 
the novice computer user.’ 


“Every time you run QBAX, the program 
determines which of your disk files has been 
changed since the last time it was run. Then it 
copies these files, and only these files, to 
whatever disk you specify. This is called 
incremental backup, and is the backup 
method of choice on most large timesharing 
systems. It will work on any or all active user 


© 1983 by Ziff-Davis Publishing Company 


Amanuensis, Inc. A 


(412) 785-2806 


Qbax TM Amanuensis, Inc. 
CP/M Registered TM Digital Research 


SUSNSHSU SUSU SNSIN Si SNSHSNSNSNSNSNSNSUNSNSNSNSNSHOSNSHSNSNSiSNSNSNSHSNSNSNONSNO 


et 





R.D. #1 Box 236 "| 
Grindstone, PA 15442 y \ 


Including a new dynamic debugger 
Still the choice of professionals 


¢ Compiler option to generate special e Clink option to suppress 
symbol table for new dynamic warm-boot 
debugger by David Kirkland. (With the 


: fi is shh 
debugger, the distribution package Meee Prary. er Sean Sapa ee 


now requires two disks.) e New, fully-indexed 180 page manual 
¢ Takes full advantage of CP/M® 2.x, * * CPIM is a trademark of Digital 
including random-record read, seek Research, Inc. 


relative to file end, user number 
prefixes, and better error reporting. 


VIB 28 $120.00 fmm TSHERE! 





V146 ....$115.00 MONEY MATH 
(needs only 1.4 CP/M) :° See 
Other C compilers and * You choose tii two types 
C related products : of rounding. 
available .. . Call! ¢ Configurable exception 
Qe ee er ae rare eet ao handling 
TERMS: CHECK, se se 
MONEY ORDER, C.0.D., prec scn ey Sac od 
CHARGE CARD for more or less 
HOURS: 9 am—5 pm e Excess 64 exponents 
Monday —Friday SOURCE 
(316) 431-0018 wccudeo $9000 







Y) 





SSE = co = 
——- si: DANA 
Dedicated Micro Systems. Inc. 


p PO Box 481, Chanute, Kansas 66720 


include $2.50 for postage and handling 








Circle no. 32 on reader service card. 


THE LEGENDARY WAY TO SOLVE YOUR BACKUP PROBLEMS 


areas, and so is an absolute must for hard- or 
RAM-disk owners.” 


Announcing a major enhancement, Qbax2, 
specifically designed for hard disk users: 

@ incremental backup by extent @ splits files 
larger than one floppy # smart restore: knows 
exactly which floppies to mount. Can restore 
individual files or wildcards # volume space 
recovery: prevents consuming floppies 
endlessly when the same files are backed up 
repeatedly. @ time & date stamp & version 
number on all backup records. 


Qbax2 is $95. For floppy disk users Qbax] is 
still available at $40. 


For CP/M 2.2 on 8” SSSD 
& popular 514” formats 
MC, Visa accepted 

OEM inquiries invited 


Shipping: 


$2 U.S. & Canada, $4 overseas. 
NSNSUNSUNSNSUSUSUNSUNSNSNSNSHSNSNSNSHONSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSNSiNSNSNSNSNSNSiSiNSN SSNS SlSlSieieiei 
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Archiving Files Listing 


breaks 

case SAME_DRV: 
printf C"\OO7## ERROR - 
Dreak 3 

case OFN_ERR: 
printf ("°\O0O7\ne* 
reset )3 
Bexitcda)s 

case READ_ERR: 
printf ("\O0O7\n** 
reset) 3 
exiti(da)s 

case CLS_ERR: 
printf("\OO7\n** ERROR 
reset () 3 
exit(da)s; 

case BADLVFY: 
printf ("\OO7\n#* 
reset ()3 
Eexitlda)s 


ERROR 


ERROR 


ERROR 


(Listing Continued, text begins on page 36) 


Drive names cannot be equal **\n");3 


- Cannot open file #5 #*\n",5)3 


- Read error on file %s **\n",5)3 


- Cannot close file #5 *#\n",5)3 


- Failed verify on file #¥s *¥*\n",5)3 


} 
printf("\nUsage: BU xECrafn] y C-AFHQ@SnI\n\n")s3 


> 


orintt¢(” where x 2 drive name of disk to be hacked up\n")3 
PeTAET: y = drive name of backup disk\n\n")3 
ALSACrL and the optional arguments arer\n\n")3 

Praise e ~A All files, regardiess of"); 
printf(" status\n")s: 

Brant tt” ~ Fast copy (without ")3 
printf(”" verification) \n");3 

Brin: -H Hard disk (files may be"); 
PDPAntt! .-solet) \n-)3 

printf¢" -Q Query each file before"); 
printf(” backup\n")s3 

Grint Le ~ System attribute copied to")3$ 
printf(” backup\n")3 

printf¢" -n Backup USER ‘n’ files only"); 
print 0°. (90-3) NV) $s 

prints” -afn Any legal CF/M ambiguouos”); 
printf(” fileref\n")3 

prant#¢" (can only be used with -n")3 
orants (option) \n" > 

@Bxit(dO); 


/* Request 


new disk (name ,»,hard_disk ) 
char *nane3 

int harddisk}; 

{ 


char cl5 
prant? ¢"\eO7\n 


1f (hard_disk ) 
printf ( "WARNING: 


*#* BACKUP DISK 


-H option active - 


FGLL -e* NANA Ss 


a new backup disk to be inserted in the output drive */ 


FILE WILL BE SPLIT\n\n")s; 


printf( "Insert new disk into drive Zc to continue. \n" ,namelO]); 
printf( Type ‘C’ when ready or ’A’ to abort 4... ")3 
Wael ees Eo = inscemrCyy t Soo Re ge Vs Ce eRe Pe Se - RR a Pe AT) 
3 
if(d == ’a’ iti d == ’A’) 
t 


un} ink (name) 3 
2xit(d);3 


we 


iif 


Ise 


it] 
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APROTEK 1000 EPROM PROGRAMMER 


TECHNICAL 
BREAKTHROUGH 
NOW ALLOWS A 

PRICE 
BREAKTHROUGH 


only 
$250.00 


A SIMPLE, INEXPENSIVE SOLUTION TO PROGRAMMING EPROMS 


The APROTEK 1000 can program 5 volt, 25XX series through 2564, 27XX 
series through 27256 and 68XX devices plus any CMOS versions of the above 
types. Included with each programmer is a personality module of your choice (others 
are only $10.00 ea. when purchased with APROTEK 1000). Later, you may re- 
quire future modules at only $15.00 ea., postage paid. Available personality 
modules: PM2716, PM2732, PM2732A, PM2764, PM2764A, PM27128, 
PM27256, PM2532, PM2564, PM68764 (includes 68766). (Please specify 
modules by these numbers). 


APROTEK 1000 comes complete with a menu driven BASIC driver programmer 
listing which allows READ, WRITE, COPY, and VERIFY with Checksum. Easily 
adapted for use with IBM, Apple, Kaypro, and other microcomputers with a RS-232 
port. Also included is a menu driven CPM assembly language driver listing with Z-80 
(DART) and 8080 (8251) I/O port examples. Interface is a simple 3-wire RS-232C 
with a female DB-25 connector. A handshake character is sent by the programmer 
after programming each byte. The interface is switch selectable at the following 
6 baud rates: 300, 1.2k, 2.4k, 4.8k, 9.6k and 19.2k baud. Data format for program- 
ming is ‘‘absolute code’’. (i.e., it will program exactly what it is sent starting at 
EPROM address 0). Other standard downloading formats are easily converted to 
absolute (object) code. 


The APROTEK 1000 is truly universal. It comes standard at 117 VAC 50/60 HZ 
and may be internally jumpered for 220-240 VAC 50/60 AZ. FCC verification 
(CLASS B) has been obtained for the APROTEK 1000. 

APROTEK 1000 is covered by a 1 year parts and labor warranty. 


FINALLY — A Simple, Inexpensive Solution To Erasing EPROMS 


APROTEK-200™ EPROM ERASER APROTEK-300™ only $60.00. 

Simply insert one or two EPROMS This_ eraser is identical to APROTEK- 
ee ah ON. In ee 10 minutes, 200™ but has a built-in timer so that the 
you switch OFF and are ready to ultraviolet lamp automatically turns off in 
reprogram. 10 minutes, eliminating any risk of overex- 


APROTEK-200™ only $45.00. posure damage to your EPROMS. 
APROTEK-300™ only $60.00. 


APROPOS TECHNOLOGY 
1071-A Avenida Acaso, Camarillo, CA 93010 
CALL OUR TOLL FREE ORDER LINES TODAY: 
1-(800) 962-5800 USA or 1-(800) 962-3800 CALIFORNIA 
TECHNICAL INFORMATION: 1-(805) 482-3604 
Add Shipping Per Item: $3.00 Cont. U.S. $6.00 CAN, Mexico, HI, AK, UPS Blue 
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Conix 


UNIX™ Technology for CP/M™ 


ConIX can provide any 48K+ CP/M-80 system with many 
advanced capabilities of UNIX. You'll be amazed at what 
your CP/M micro can do now! ConIX features include: 


I/O Redirection and Pipes (uses memory or disk), multiple 
commands per line, full upper/lower case and argument 
processing, Auto Screen Paging, Programmable Function Keys, 
improved User Area Directory manipulation, Command and 
Extension (Overlay) Path Searching, “Virtual” disk system, 
8Mb Print Spooler, extensive preprocessed “Shell” command 
program ming rp a 300+ variables, over 100 built-in 
commands, Math Package, 22 new BDOS SysCalls, Archiver 
(compacts files for disk space savings of over 50%), On-Line 
Manual System, and much more! Uses as little as 1/2K RAM! 
Runs with CP/M for true data and software compatibility. 
Installs quickly and easily without any system modifications. 


The ConIX Operating System 
List Price: $165 


Price includes Instructional Manual, 8” SSSD disk and free support. 
Format conversion available. To order, contact your local dealer, or 
buy direct and add shipping: $4.50 UPS, $10 da, $25 overseas, 
COD §2 extra (USA only). State residents add sales tax. 


Computer Helper Industries Inc. 
P.O. Box 680 Parkchester Station, NY 10462 
Tel. (212) 652-1786 

Dealer inquiries invited! 
UNIX: AT&T Bell Labs, CP/M: Digital Research, Con[X: Comp. Helper Ind. Inc. 
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Get Fast Relief! 


S-100! IBM PC/XT! 


If you've been “patient” with slow 
disk drives for too long, SemiDisk 
will relieve your suffering. 


Fast-acting. 


TRS’80 II! 


S-100 applications. 


Contains gentle buffers. 


EPSON QX10! ZENITH Z-100! 


surface, and a floppy, which grinds 
the disk constantly, the SemiDisk 
gives you ultra-fast, silent data 
transfer. 


CP/M®80 installation software 


includes SemiSpool, which buffers 


The SemiDisk, a super-fast disk 
emulator, stores and retrieves data 
much faster than either a floppy or 
hard disk. 


Easy to apply. 


Installation is as easy as plugging 
the SemiDisk into an empty slot of 
your computer, and running the 
installation software provided. 


print data in the SemiDisk. This 
allows the computer to be ready for 
other uses immediately after issuing 
a print command. 


No emulator amnesia. 


The optional Battery Backup Unit 
(BBU) plugs into the SemiDisk, and 
supplies power even when the 
computer is off. A battery keeps the 


And SemiDisk’s price wont raise 
your blood pressure. 


512K 1Mbyte 
SemiDisk I, S-100 $995 $1795 
SemiDisk II, S- 100 $1245 $2095 
SemiDisk, TRS-80 II $995 $1795 
SemiDisk, IBM PC $945 $1795 


SemiDisk, Epson QX10 $995 
SemiDisk, BBU $150 


data alive during power outages of 


Regular 
and extra-strength. 


SemiDisk I is the standard model 
for $S-100, SemiDisk II offers extra 
speed and flexibility for custom 


Call 503-626-5510 for CBBS. NW and 503-775-4838 for CBBS/PCS, both SemiDisk-equipped computer bulletin boards 
(300 1200 baud) = SemiDisk. SemiSpool trademarks of SemiDisk Systems. CP/M trademark of Digital Research 


four hours or more. 


Stops head-aches. 


Unlike a hard disk, which can 
‘crash’ its head on the rotating disk 





SEMIDISK 


SemiDisk Systems, Inc. 


P.O. Box GG, 
Beaverton, Oregon 97075 


503-642-3100 
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Ar chi ving F, Iles Lis ting (Listing Continued, text begins on page 36) 


print re’N\pAkn’ ys 
bdos(RESET_ORV,NULL) 3 /* Reset drives */ 
} 
/* Reset user and drive codes to entry values #/ 


Pose t () 


rn 


bdos (USER.CODE ,entiuser) 3 
ndos(SEL_ORV,ent—drv)3 


%. 
@d 
/* Get character from current CE/M CON: device without echo */ 


im_chr¢) 
if 


ES Rope = 


do 
c = bdos(DIR_IO,Oxff)s 
while Clady; 
return c3 
3 


/* Additional function required for DeSmet C version of BUBS.C */ 


#if NESMET 
bdos(heta,de) ta) 
int beta, 
deltas 
{ 
return  ~os(beta,delta); 


Heyicii f 
/*#X*k EXPLANATION OF AZTEC CII STDIO.H FUNCTIONS ***/ 


/* hdos(be ,de) | DeSmet equivalent is defined under FUNCTIONS ; 
; 


Pf 
int bec ye 


Calls CP/M’s BOOS with 8080 CFU register pair BC set to "bc" 
and register pair DE set to "de". The value returned by the 
8080 CPU accumulator is the return value, 


movmen(src,dest,length) | DeSmet equivalant is defined } 
Char #uest, *RrT i under DEFINITIONS i 
int lengths 

Moves data from “sre" to “dest". The number of bytes is 
specified by the parameter “length”. 


strncemp(strl,str2,max) i Identical for DeSmet | 
char *strl,*str23 
int maxs3 


Compares “stri” to “str2" for at most “max” characters, and 
returns NULL if strings are equal, -1 if “stri"” is less than 
“str2", and +1 if “stri" is greater than “str2". 


* Ke eK KK OK KK KK KK OK KR OK OK KK OK K 


ee 
N 


/*% Enc of BU.C #/ 


End Listing 
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WIZARO C 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 


ALL UNIX SYSTEM II] LANGUAGE FEATURES. 

UP TO A MEGABYTE OF CODE OR DATA. 

SUPPORT FOR 8087 AND 80186. 

FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. 
CROSS-FILE CHECKS OF PARAMETER PASSING. 

USES MSDOS LINK OR PLINK-86. 

CAN CALL OR BE CALLED BY PASCAL ROUTINES. 
IN-LINE ASSEMBLY LANGUAGE. 

240 PAGE MANUAL WITH INDEX. 

NO LICENSE FEE FOR COMPILED PROGRAMS. 


The new standard for C Compilers on MSDOS! 


Only $450 


For more information call (617) 641-2379 
Wizard Systems Software, Inc. 

11 Willow Ct., Arlington, MA 02174 
Visa/Mastercard accepted 


WSS 
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2606 Johnson Drive 
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The Tools 
waz 7 You Need 
To C You Thru. 


Now the Wizard Ware™ 
Applications Programmers Toolkit 
provides everything you need 
to increase your C programming productivity. 
APT” features: 
® File Handlers ® String Math 
@ Direct Access ® Screen Generator 
®@ Keyed Access ® Report Generator 
@ Generic Terminal Driver © FIFO Que Routines 
® String Handling ® Source Code 
@ Manual On Disk (45 pages) 
® Tutorial On Disk (33 pages) 
@ Detailed Brochure on request 
UNIX” System V Version availabie 1-1-85) . $995 
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MS-DOS” Version................ $495 
BDSG CG" Versio#..) 2s. 6 ew $395 
Matra Only: oo oo a ie ees $50 


*Manual Cost will be applied to APT” purchase price within 
30 days ($10 re-stocking charge). U.S. funds only, please. 
Trademark owners: UNIX™ (AT&T Bell Labs), MS-DOS” (Microsoft, Inc.), 
BDS C” (BD Software), Wizardware™ and APT™ 
(Shaw x: American Technologies) 


Call: (800) 443-0100 Ext. 282 
Ask for APT” or Send Check To: 
Shaw +x Sige ee Technologies 

™ 


IY Se as? me 1 


aaEEe 830 South Second Street - Box 648 
mk Louisville, KY 40201, U.S.A. Ss 
(C.O.D. and Foreign Orders - Add $5 Shipping/Handling) 

References: Bank of Louisville, Citizens Fidelity Bank, Louisville Chamber of Commerce 
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MBOOT and MODEM 7 for the 
C-64’s CP/M 





by Walt Piotrowski 


62 


dore 64, you may have noticed that 

the ads for CP/M software never 
mention that the program is available 
in Commodore’s disk format. If you 
have tried to buy any of this software, 
you have found out why the ads don’t 
mention it: with one exception, dis- 
kettes for the C-64 are not available 
(the only exception that I am aware of 
is Turbo Pascal from Borland 
International). 3 

One company, Laboratory Micro- 
systems, tried quite hard to help me 
buy their product but simply did not 
have access to any equipment that 
could write a diskette for the C-64. 
One of their suggestions was to provide 
the software on an IBM PC-compatible 
diskette; since I have access to a PC, I 
could transfer the program to the C- 
64. Unfortunately, I did not have any 
software for my C-64 that could do a 
download either. 


| f you have CP/M for your Commo- 


MBOOT on the C-64—Download 
Only 

MBOOT, from the DDJ CP/M ex- 
change column, was a good attempt at a 
generic program to download files us- 
ing Ward Christensen’s Xmodem file 
transfer protocol. In principle, all you 
have to do is take the listing, change a 
few equates to match your modem, type 
in the program, and assemble it, and 
you are ready to download files. If you 
are familiar with the way that CP/M is 
implemented on the C-64 (see the refer- 
ences at the end of the article if you 
aren’t), you have probably guessed that 
modifying MBOOT for this computer 
isn’t quite that easy. 

Normal CP/M operation on the C- 
64 does not require access to the RS- 
232 port, so there is no code in the 
BIOS to handle this port. Because the 
modem is controlled through the RS- 
232 port, the modification for MBOOT 
required some 6510 code in addition to 





“This article is about the MBOOT download program 
(DDJ, July 1982) and the modifications that were 
necessary to make it work on the C-64.” 





This article is about the MBOOT 
download program (DDJ, July 1982) 
and the modifications that were neces- 
sary to make it work on the C-64. Once 
you have MBOOT working, you can 
use a modem to download public do- 
main software from RCPMs, and, as- 
suming you have access to a machine 
with one of the more popular formats, 
you can also use it to set some of the 
commercial software that you need. 


Walt Piotrowski, State University of 
New York, Binghamton, NY 13901. 


MBOOT’s 8080 code. This 6510 code 
makes RS-232 I/O requests to the 
Commodore I/O kernel. The problem 
is made a little more complex by the 
fact that the kernel handles the RS- 
232 transfers one bit at a time by ser- 
vicing nonmaskable interrupts from a 
6526 Interface Adapter chip. Normal- 
ly, the kernel accepts an RS-232 re- 
quest and sets up the hardware for the 
transfer but returns control to the re- 
questor before the actual transfer is 
complete. The kernel then services the 
interrupts as they come along; other 
6510 activities proceed in parallel with 
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the RS-232 transfer. 

Under CP/M, however, it is quite 
normal to shut off the 6510 for long pe- 
riods while programs run in the Z80. 
But the hardware does not allow the 
Z80 to receive these interrupts, nor 
does it contain any provision for switch- 
ing on the 6510 if an interrupt arrives. 
This means that, unless MBOOT con- 
tains some provision to ensure that the 
6510 is running (almost) continuously, 
RS-232 transfers will become garbled. 
Making sure that the 6510 is running 
while a character is being sent is not a 
big problem since transmission is total- 
ly under MBOOT’s control. The 6510 
code that I have added to make the 
transmission request to the I/O kernel 
includes a loop that waits in the 6510 
until the kernel’s RS-232 status byte 
shows that the character has been com- 
pletely transmitted. Data reception is a 
little more complex. 

Listing One (MBOOT64, page 67) is 
the modification of MBOOT’s original 
8080 code. If you were to compare 
MBOOT64 to MBOOT, you would find 
that MBOOT’s inline I/O instructions, 
which originally were directed to the 
modem port, have been replaced with 
calls to a set of 6510 interface routines. 
These routines can be found at the end 
of Listing One. They allow the pro- 
gram to open the RS-232 channel 
(OPMDEM), close it (CLMDEM), send 
a character to the modem 
(WRMDEM), receive a character 
(RDMDEM), receive a character in a 
time out loop (RDMDEM2), and read a 
keyboard character (KYBD). The in- 
terface routines do not actually per- 
form these functions: they set up pa- 
rameters in memory that eventually 
cause a transfer to corresponding 6510 
routines that do the work required. 
Listing Two (CPMMD65, page 79) 
contains the 6510 counterparts of each 
interface routine. 

The actual transfer of control be- 
tween the Z80 and the 6510 takes 
place at the label GO6510 in the inter- 
face routine section of MBOOT64. The 
transfer of control employs a user 
function in the BIOS that Commodore 
has provided to standardize the inter- 
face between CP/M programs and 
user-developed 6510 programs. This 
user function and the standard inter- 
face are described in the Commodore 
64 CP/M user’s guide. The modifica- 
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tions to MBOOT make use of request 
code 9 in this standard interface, and 
the program should be usable even if 
future modifications are made to Com- 
modore’s CP/M. 

MBOOT (and MBOOT64) has two 
modes of operation: a file receive mode 
and a dumb terminal mode. In the file 
receive mode, the XMODEM protocol 
provides a strict handshake sequence 
between the computer transmitting the 
file and the computer receiving the file. 
Because of this handshaking, data re- 
ception in the file receive mode is not 
much more difficult than data trans- 
mission: MBOOT (and MBOOT64) 
sends a character to the computer that 
is transmitting the file then enters a 
wait loop. This transmitted character 
(ASCII ACK or NAK) is a signal that 
the receiving computer expects one 
sector of data. 

In the original MBOOT, the wait 
loop contained code to poll the modem 
and a timeout counter to prevent a per- 
manent hangup if the data never ar- 
rived. A vestige of this loop is at the 
label MWTI in MBOOT64. At MWTI 
(location 03E5), you will find a call to 
RDMDEM2, which activates the “‘read 
with wait” function in the 6510; this 
read with wait is at label INPUT2 (line 
139) in CPMMD65. 

Immediately after a byte is received, 
control is returned from the 6510 to 
the Z80. At this point, the 6510 is shut 
off while the Z80 takes care of the re- 
ceived character. However, this time 
period is very short, and the 6510 is 
always back on in time to accurately 
receive the next character. 

In the dumb terminal mode, charac- 
ters arrive at random times, making it 
impossible to predict the exact mo- 
ment when a character will begin to 
arrive. The modification to this mode 
takes advantage of the fact that the 
terminal code is a very short loop in 
which a modem status check occurs ev- 
ery few microseconds. The modifica- 
tion simply puts this status check func- 
tion into the 6510. Because the 6510 
will now be turned on every few micro- 
seconds, it will be able to service the 
RS-232 interrupt either as soon as it 
arrives or very shortly thereafter. 

The start of the terminal loop is at 
label TERM (location 019A) in 
MBOOT64. In this loop, a call to 
RDMDEM, one of the 6510 interface 
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Package ] 09 


FULL DEVELOPMENT PACKAGE 
- Full K&R C Compiler 
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= Execution Profiler 
- Complete STDIO Linrary (>120 Func) 
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Examine & change variables by 
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screen 
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LINKs with DOS ASM 
« Uses Lattice® naming conventions 


Check: CI Dev. Pkg (109) 
CL) Debugger (50) 
O DOS Link Supt (35) 


SHIP TO: 


CORPORATION 


P.O. BOX C 
Sunnyvale, CA 94087 


(408) 720-9696 
All orders shipped UPS surface on IBM format disks. 
Shipping included in price. California residents add 
sales tax. Canada shipping add $5, elsewhere add 
$15. Checks must be on US Bank and in US Dollars 
Call 9 am. -— 1pm. to CHARGE by VISA/MC/AMEX. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
: WARE 
| 
| 
| 
| 
| 
| 
| 
| 





Circle no. 18 on reader service card. 


routines, activates the modem status 
check function in the 6510. This func- 
tion is located at label INPUT (line 
110) in CPMMD65. 

Each time INPUT is entered, it ex- 
amines the kernel’s status byte to see if 
the kernel has begun to input a charac- 
ter. If it has, the routine waits until the 
character has been completely trans- 
ferred (Listing Two, lines 126-131). 
INPUT and RDMDEM also return the 
modem character to the caller if one is 
ready. The wait loop in INPUT, plus the 
one in the character transmit routine 
(Listing Two, lines 102-104), keeps 
the 6510 running a very high percen- 
tage of the time, and full duplex opera- 
tion at 300 baud proceeds smoothly. 
(More information on data rates is in- 
cluded near the end of the article. ) 

There is an additional complicating 
factor involving the terminal mode. As 
you probably know, the C-64’s native 
character set is not ASCII. When Com- 
modore implemented CP/M, it chose 
to generate ASCII with a new keyboard 
scan routine. This CP/M keyboard 








RS-232 Output Buffer 
RS-232 Input Buffer 


_ Translation Table 


Not used for MBOOT* 
MBOOT 
6510 Code 


MBOOT 
8080 Code 


Figure 1 


scan runs partly in the 6510 and partly 
in the Z80. Unfortunately, the key de- 
bounce loop is located in the Z80. This 
means that whenever a key is pressed 
the Z80 enters this delay loop; if a mo- 
dem character happens to come along 
while the Z80 is in this loop, the mo- 
dem character gets lost or garbled. 
This turns out to be a significant 
problem because in the terminal mode 
every character typed at the C-64 is 
echoed by the computer at the other 
end of the line. At normal typing 
speeds, this debounce delay loop 
causes almost every echoed character 
to be garbled—it becomes impossible 
to read what you have typed. The solu- 
tion was to add a new keyboard routine 
in the 6510 and to use that routine in- 
stead of the CP/M keyboard routine 
while in the terminal loop. The inter- 
face between MBOOT64 and the new 
keyboard routine is at label KYBD (lo- 
cation 04CC) in MBOOT64, and the 
corresponding 6510 routine is at label 
KBDCHR (line 154) in CPMMD65S. 
The keyboard routine that I imple- 


Memory Layout for C-64 MBOOT 





64 


* This space was left for compatibility with MODEM464 






















mented is a very simple one: it uses the 
normal C-64 kernel keyboard routines 
(not the CP/M routine) and simply 
translates received characters from the 
C-64 character set into ASCII through 
a translation table. This routine is ade- 
quate for the terminal mode, at least 
for me, but you will notice that it does 
not allow you to switch to an all upper 
case keyboard mode. You will also no- 
tice that the characters with ASCII 
codes 32 (space) and below have an 
auto repeat. This repeat is built into 
the native C-64, and it was easier to 
leave it in than to try to undo it. 

The modification to MBOOT in- 
cludes one further change. The origi- 
nal MBOOT contained code to buffer 
16 sectors before actually doing a disk 
write. I tried it both ways and, with 
1541 disk drives, found no speed ad- 
vantage in doing this buffering. Be- 
cause the program is easier to type in 
without this code, I omitted it. (Inci- 
dentally, the comments in the 
MBOOT¢64 listing were not in the origi- 
nal DDJ column, but I needed them to 
help me to understand the program. I 
believe that they are correct, but it 
isn't easy to debug a comment, so they 
may contain some misinterpretations. ) 

The Figure (at left) shows where the 
8080 and 6510 portions of the modified 
MBOOT reside in memory. The 8080 
code begins at the beginning of the TPA 
($100 in Z80 space) while the 6510 
code begins at location $600. You will 
note from Listing Two that the 6510 
code is actually assembled at $1600 due 
to the $1000 offset between the address 
spaces of the two processors. The data 
shared between the two parts of each 
function resides in memory locations 
$603 — $605 in Z80 space. 

The figure also shows the location of 
the character translation table that is 
used in the terminal keyboard routine 
and the new location of the kernel’s RS- 
232 buffers. These RS-232 buffers 
originally were moved from their nor- 
mal location so that a 48K CP/M could 
be used. Since writing the program, | 
have discovered that the 48K CP/M 
will occasionally send a garbage char- 
acter out the RS-232 port while doing 
disk transfers. Most RCPMs ignore 
these characters, but they cause the 
XMODEM program on a few RCPMs to 
abort while doing file transfers. I have 
found that it is best to use a 44K CP/M 
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The Dynamic Screen Debugger for CP/M 


DSD-80 is the most advanced debugging program 
available for CP/M-80 and compatible operating systems. 
Spend less time debugging and more time programming 

because DSD is the only utility to offer all of 
the most important features in one package. 
Satisfaction is guaranteed or a full refund! 

Full featured simulator provides for 
Execution only within boundaries 
Write protected memory 
Stack overflow protection 
Breakpoint on specified memory Bogs Symnoy es 

Interactive symbol definitions 
or register values 

Full screen display includes paccee Sg rig eat 

author of BDS C 
eNOS PSL IANe Uses less than 15k of memor 
Register display Pa cae ereian y 
Stack display ee ee ee en 
Instruction display Clearly written 50 page manual 
Fully upward compatible with DDT Free updates for one year 


Single keystroke commands for 
Stepping instructions 
Subroutine execution 
Scrolling memory displays 


P.O. Box 49473 Austin, TX 78765 (512) 478-4763 


Avaliable on 8” $S$D & various 5.25” formats 
IBM PC version availiable soon! 
Visa & MC accepted 
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Powerful in circuit emulation, priced 
‘well within your grasp. That’s NICE.” 


NICE may be only 3” square and 2” thick, but it hands you full speed, _ 
VertOitilemoillirice steve mplenar title! functions, software breakpoints, 
all memory addresses and all I/O ports. 

Just plug NICE directly into the target MP socket and any “i termipal 
for system development, troubleshooting, GepuReine or testing . % 
bem detemClemeustemislenilalte * 

And NICE hands you all this performance, portability and oe 
$498". 

Call in your order today using 
your VISA or Mastercard num- 
ber: (800) NICOLET outside 


CA, or (415) 490-8300 in CA. 
Or send your 
check or 


reeceyelea 

order 

to NICE, 
Witeej(ce 
Paratronics 
Corporation, 
PAVE teligiay 
Avenue, Fre- 
mont, CA 94539. 


"Payment by check, money 
order, VISA or MasterCard. 
NICE is a trademark of Nicolet 
Paratronics Corporation 
®Z80 is a trademark of Zilog, Inc, 
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Now you can edit, compile and test your 
program from inside the EC editor.* In 
fact, EC gives you complete access to the 
operating system. Do a directory, copy 
or delete files, even run other programs 
without ever leaving EC! 


MULTIPLE WINDOWS— 

Forget about dumping a file you're editing 
just so you can see what is in another ° 
file ... open a new window, up to five of 
them, and read in the file you want to use. 


All windows can be shown on the screen 
at the same time; or the screen can be 
dedicated to just a single file, while 

the others are kept in the background— 
only a keystroke away. You can even cut 
and paste blocks of text between 
windows! 


FULL SCREEN EDITOR FOR THE IBM— 
Developed specifically for the IBM PC, EC 
makes extensive use of the entire PC 
keyboard so editing is fast and intuitive. 


In addition to standard editing features, EC 
supports command and text macros, word 
wrap, paragraph reformatting, horizontal 
scrolling, and control for color monitors. 


DEMO DISK IS ONLY $5— 

Call or write for our full-featured demo. 
You'll get a standard version of EC that 
handles up to 10K worth of files and a 
complete set of documentation. 


See for yourself how pleasant it is to use 
an editor that gives you both unrestricted 
access to the operating system and 
multiple windows. 


; You won't be disappointed! 


EC EDITOR - $125 


EC DEMO - $5 (plus $1.65 for COD) 





“EC runs on an IBM PC, or look-alike, with at least 


128K RAM under DOS 1.1 or higher. To use the 
DOS interface feature you must have DOS 2.0 or 
higher and enough RAM to run the additional 
program. 


IBM is a trademark of International Business Machines 
MO. RESIDENTS ADD 6% SALES TAX 
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C Programmers: 
Program 
three times faster 
with Instant-C" 


Instant-C™ is an optimizing interpreter 
for the C language that can make pro- 
gramming in C three or more times faster 
than using old-fashioned compilers and 
loaders. The interpreter environment 
makes C as easy to use as Basic. Yet 
Instant-C™ is 20 to 50 times faster than 
interpreted Basic. This new interactive 
development environment gives you: 











Instant Editing. The full-screen editor is 
built into Instant-C™ for immediate use. 
You don’t wait for a separate editor pro- 
gram to start up. 


Instant Error Correction. You can 
check syntax in the editor. Each error 

- message is displayed on the screen with 
the cursor set to the trouble spot, ready 
for your correction. Errors are reported 
clearly, by the editor, and only one at a 
time. 


Instant Execution. Instant-C™ uses 
no assembler or loader. You can execute 
your program as soon as you finish 
editing. 

Instant Testing. You can immediately 
execute any C statement or function, set 
variables, or evaluate expressions. Your 
results are displayed automatically. 


Instant Symbolic Debugging. Watch 
execution by single statement stepping. 
Debugging features are built-in; you don’t 
need to recompile or reload using special 
options. 

Instant Loading. Directly generates .EXE 
or .CMD files at your request to create 
stand-alone versions of your programs. 


Instant Floating Point. Uses 8087* co- 
processor if present. 


Instant Compatibility. Follows K & R 
standards. Comprehensive standard 
library provided, with source code. 


Instant Satisfaction. Get more done, 
faster, with better results. Instant-C™ 
is available now, and works under 
PC-DOS, MS-DOS*, and CP/M-86*. 


Find out how Instant-C™ is changing 
the way that - programming is done. 
Instant-C™ is $500. Call or write for 
more information. 


Rational 


Systems, Inc. 


(617) 653-6194 
PO. Box 480 
Natick, Mass. 01760 






































Trademarks: MS-DOS (Microsoft Corp.) 8087 (Intell Corp. ), CP/M-86 
(Digital Research, Inc.), Instant-C (Rational Systems, Inc.) 
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when using MBOOT or other modem 
programs, even though they will work 
most of the time with a 48K CP/M. 
There are two ways to add the 6510 
code to MBOOT. The easiest, not that 
it works, is simply to include the code 
at the end of the 8080 assembly as a set 
of hex constants. (Don’t forget that it 
must begin at location $600.) The sec- 
ond way, if you have a 6510 assembler 
that runs on the native 6510, is to as- 
semble the program and load the ob- 
ject code into memory prior to doing a 
CP/M cold start; the cold start leaves 
these 6510 program locations unaf- 
fected. Once CP/M has been loaded, 
use DDT to load in MBOOT’s 8080 
COM file and save the combined pro- 
gram with “SAVE 7 C64MBT.COM.” 


MODEM4—Upload and Download 
After I had MBOOT working, I began 
to run up my long distance phone bill 
calling RCPMs and looking for a copy 
of the source code for MODEM 7. Dur- 
ing the search, I found many RCPMs 
with copies of the object code but none 
with the source code. Since this search 
was getting rather expensive, I decided 
to stop and go to work on a copy of 
MODEM4, a program I had found and 
downloaded while looking for 
MODEM/7. 

MODEM4 apparently is a modem 
program that was part of the evolution 
toward MODEM7. You can use it as a 
terminal program as well as to upload 
and download files using Christensen’s 
protocol. I modified it for the C-64 and 
used it to put copies of itself on several 
RCPMs in the Northeast. It’s called 
MODEM464 and a short .DOC file ac- 
companies it. 

To find it, look for MODEM464.OBJ. 
Download it with MBOOT, rename it 
MODEM464.COM, and run it. If you 
run it by typing MODEM464 T, you will 
be in the terminal mode and the pro- 
gram will act the same as MBOOT. 
When you are ready to download a file 
(after you have set up the RCPM’s 
XMODEM), exit from the program with 
CTL-E and type “MODEM464 R file- 
name.ext.” This will reload the program 
from disk and start it into file receive 
mode. Once the file has been trans- 
ferred, the program goes directly back 
into terminal mode. If you want to send 
a file, type ““MODEM464 S filena- 
me.ext.”” The program will send the file 


and go to terminal mode when complet- 
ed, just as it does in the file receive 
mode. 


MODEM7—vUpload, Download, 
and More 

A short time after I finished the work 
on MODEM4, I came across the source 
code for MDM730, a version of MO- 
DEM7. MODEM 7 is a full-feature mo- 
dem program with a terminal mode, a 
file upload and download capability, a 
terminal mode capture buffer for 
ASCII text, and a terminal mode ASCII 
file transmit function. The ASCII cap- 
ture buffer is useful for saving text, 
such as the directory of an RCPM, that 
you don’t want to lose but can’t transfer 
in file (XMODEM) form. The ASCII 
file transmit function is useful if you 
have a long message that you want to 
leave on a bulletin board without using 
the time (and money) to compose it 
while on-line. These ASCII file features 
are also useful if you wish to exchange 
text files with someone who does not 
have a program with the XMODEM 
protocol. MDM730 will also autodial 
with several different kinds of modems, 
and it allows you to echo text directly to 
your printer. (The modified version will 
autodial only with a Hayes modem. ) 

The modified program, called 
MD730C64, is harder to learn to use 
than either MBOOT or MODEM4 be- 
cause it has so many features. To get 
going, you must download three files: 
the executable program (MD730C64- 
-OBJ), the documentation for the origi- 
nal program (MDM730.DOC), and the 
notes that explain the few differences 
between MDM730 and MD730C64 
(MD730C64.DOC). 

Getting MD730C64.OBJ is easy: 
download it using MBOOT, rename it 
to a .COM file, and you are ready to 
run it. Getting the documentation, 
however, is a bit more difficult. Most 
RCPMs store long text files in a 
squeezed format to conserve disk space 
and to shorten the download time; you 
can recognize squeezed files because 
they have a Q in the file extension. 
Therefore, you may find MD730C64- 
-DQC instead of MD730.DOC. If you 
do, you must also download a program 
to unsqueeze the file on your own sys- 
tem. This unsqueeze program has 
many versions, but it almost always 
has a name that starts with USQ. 
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Getting the original MDM730 pro- 
gram documentation file may be 
tougher still. On most RCPMs you 
must download a library file called 
MDM730.LBR. A library file is a col- 
lection of individual files relating to 
the same program—-MDM730.DQC is 
one of the individual files in MDM730- 
.LBR. To extract the file that you want 
from a library, you need a library utili- 
ty program called LU (and its docu- 
mentation LU.DQC). Once you have 
learned to use LU, you can extract 
MDM730.DQC from the MDM730 li- 
brary file. This library also contains a 
program that lets you change the list of 
RCP/M phone numbers in MDM730 to 
ones that you call more frequently. 

Don’t be discouraged by the com- 
plexity of this whole process. Once you 
start to find your way around RCPMs, 
you will find that most of the really 
worthwhile programs are in libraries 
and have squeezed documentation. 
Your experiences and the utility pro- 
grams that you have downloaded will 
pay off later. 

I ran into some interesting problems 
when modifying MDM730. The biggest 
was the size of the source code. The 
squeezed file that I downloaded was 
105K, which will fit on a C-64 diskette. 
When unsqueezed, it becomes 158K, 
which will not. To get an assembly list- 
ing, I had to use my modified MO- 





DEM4 to transfer the squeezed source 
code and a copy of an unsqueeze pro- 
gram to a Cromemco Z80 sysiem at 
the university where I work. The disks 
on this system hold 250K, and I was 
able to unsqueeze the file and assemble 
it there. My original intent was to 
modify MDM730 by editing and reas- 
sembling the original source file, but I 
decided that editing and assembling on 
one machine and testing on another 30 
miles away would be a nearly impossi- 
ble task. Because of that, I chose to 
make the modification in the form of a 
patch overlay. 


Caveats 

MDM730 is a very complex program; 
consequently, so is MD730C64. I have 
tested it carefully, but you may uncover 
some minor problems. Also, because of 
equipment limitations, I have not been 
able to test any of these programs at 
data rates higher than 300 baud. Be- 
cause of the switch that takes place be- 
tween processors while the data is arriv- 
ing, the program may need more work to 
run successfully at higher rates. Please 
let me know :f you uncover any prob- 
lems and if you are able (or unable) to 
run at rates higher than 300 baud. 

A note about modems: When I began 
accessing RCPMs, I used the VIC mo- 
dem thai I had been using for Compu- 
Serve. I discovered that, while it works 
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Listing One 

? 

? 

y 

y 

y 

: 

y 

; 

y 

$ 

: 

» 

, 
Q000 = BASE EQU 

7 
QO00S = EXITCHR EQU 
0004 = FLCCHR, £80 

bg 

’ 
0600 = MU65Z EQU 
14600 = M65 EQU 
0603 = MOFUNC EQU 
0604 = MOCHAR EQU 
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MBOOTS4 - FILE DOWNLOAD 


B&MEROOTS4. PRN 


FROGRAM 


ORIGINAL MBOOT BY GENE HEAT 


D.0e.J. OCTOBER, 1982 
MODIFIED FOR THE C-64 BY 


WALT FIOTROWSKI 


with CompuServe because they have a 
local phone number, on the typical long 
distance call with a noisy line the VIC 
modem simply doesn’t work well. If you 
plan to call RCPMs, you will need a mo- 
dem with better immunity to noise. 
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RCPMs with MD730C64 

1. Allentown (PA) RBBS/RCPM, Bill 
Earnest, (215) 398-3937. 

2. Bearsville (NY) Town SJBBS, 
Hank Szyszka, (914) 679-6559. 

3. St. Mary’s College (MD) RCP/M, 
Jonathan Crawford and Bob Beas- 
ley, (301) 863-7165. 

Thanks to the SYSOPS for permission 

to use their names and numbers.  DDjJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 194. 


OOOO OOK OOK OOK OOK OK OK GOK OK OK OK OK KOK KK 


OOOO OOK OOOO KOK OK OOK KK KKK 


0 

OSH *;CTL-E TO EXIT TERM MODE TO CF/M 
04H sCTL=2 TO RECEIVE FICE 

600H s;LOC OF 46510 MODEM RTNE (Z80 SFACE) 
MD65Z+1000H 9(46510 SFACE) 

MU6éSZ+3 sMODEM FUNCTION CODE 

MU6SZ+4 sMODEM CHARACTER 


(Continued on next page) 
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0605 = 


F900 
F904 
CEOO 


OOOA 


0001 
0004 
0006 
0015 
0018 
OO0A 
Ooor 


00035 
OOSC 


0100 


0100 
0103 
0104 
0107 
O10A 
O100 
0110 
O121 
O12A 
0120 
O12F 
0132 


0135 
0152 


0155 
0158 
0169 
017C 
O17E 
0194 
0197 


O19A 
0190 
O19F 
O1LA2 
O1AA4 
O1A7 
O1AY 
O1AC 


OLAF 
O1LR2 
0184 
O1B7 
O1B9 
O1LBC 


O1BF 
01C2 
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HOR i 


Hou H HOW OH 


Hoof 


210000 
39 

222B05 
312B05 
COF 903 
CU3604 


4320363420 
S42F312F 38 


SASIIOO 
FE2O 

C25501 
C3604 


MOUREC 
? 
BRIOSFN 
BIOSAL 
ON6510 
? 
ERRLIM 
9 

SOH 
EQT 
ACK 
NAK 
CAN 

icf 

CR 

3 

BhOS 

FCE 


y 


a 
9 


2B2B4E4F 20 


C37304 


Cl3604 


ODOAS44 


ol 


9 


TERMI 


wae 


43S544C2045 


OLIOA 


4354402044 


OLOA0O 
CU7EO4 


Cnucco4 
FEOO 
CAAFO1 
FEOS 
CA7304 
FEO4 
CABFO1 
C9004 


CLIYEO4 
FEOO 
CAPAO0L 
E&7F 
CD1L204 
C39A01 


Ch1403 
COSEOS 


—j “er “er “e> 


ERM 


TERML 


Fi ar ser sar 


‘CVF IL 


EQU 


EQU 
EQU 
EQU 


EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


ORG 


LXI 
DAL 
SHLD 
LXI 
CALL 
CALL 
Dk 
Dk 
LTA 
CFI 
JINZ 
CALL 


Dik 
JMP 


CALL 
DR 
Dk 
lik 
Dk 
DB 
CALL 


DUME 


CALL 
CPI 
JZ 
CPI 
JZ 
CFI 
JZ 
CALL 


CALL 
Cri 
JZ 
ANT 
CALL 
JMF 


FILE 


CALL 
CALL 


MU65Z+S sMODEM CHAR RCV FLAG 
OF9OOH s¢HIOS6S FUNCTION CODE 
OF9O06H sMODEM ROUTINE INDIRECT ADDRESS 
OCEOQOH #MEM LOC TO TURN 6510 ON 
10 yNUMBER OF TRIES FOR ONE BLOCK 
1 yASCII CONTROLS 
4 
é 
15H 
18H 
10 
1 
BASE+S 
BASE+SCH 
BRASE+i100H 
HO yCLEAR HL 
SP >MAKE A COFY OF SF 
STCK ySAVE FOR EXIT 
SPySTCK sFOINT TO LOCAL STACK 
INITAUR sSET UF BIOS CALLS 
ILFRT 
‘C-64 MEOOT AS OF ” 
4/1/84’ sCRerLF»0 
FCR+1 gLOOK AT FILE NAME 
oto y RLANK? 
TERMI yNO -—- GO PROCESS 
ILFRT *WRITE ERROR MSG 
“++NO FILE NAME SPECIFIED++’ »CReLF 20 
EXLT 
ILFRT IWRITE FIRST MSG 
CRyLF» “TERMINAL MODE’ »sCRyLF 
"CIRCE EX E16. TO -GeAH 
CRry LF 
‘SH Y-STARTS FILE XFER* 
CRyLF»O 
OFMDEM sOFEN FOR MODEM 
TERMINAL LOOP 
KY EI ¥CHECK FOR KYBDD) CHAR 
0 yCHAR RECEIVED? 
TERML 7G0 CHECK FOR MODEM CHAR 
EXITCHR #sEXIT TQ CFM? 
EXTT 
FILCHR #BEGIN RECEIVING FILE? 
RCVFIL 
WRMDEM FOUTFUT KYBR CHAR TO MODEM 
ROMDEM -sINFUT MODEM CHAR 
0 yO —- NO CHAR RECVE 
TERM yBACK TO MAIN LOOF 
7FH yREMOVE FARITY 
TYPE y,DISPLAY RECVD CHAR 
TERM »yBACK TO MAIN LOOP 
RECEIVE 
ERASFIL #SEE IF FILE EXISTS 
MAKEFIL sOPENFILE 


(Continued on page 70) 
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(LISP) 


Artificial Intelligence Lanquage 
UO-LISP Programming Environment 
The Powerful Implementation of LISP 

for MICRO COMPUTERS 


LEARN LISP System (LLS.1) 
(see description below $39.95 


UO-LISP Programming Environment 
Base Line System (BLS.1) $49.95 


Includes: Interpreter, Compiler, 
Structure Editor, Extended Numbers, 
Trace, Pretty Print, various Utilities, 
and Manual with Usage Examples. 
(BLS.1) expands to support full system 
and products described below. 


UO-LISP Programming Environment: The Usual LISP Interpreter Functions, 
Data Types and Extensions, Structure & Screen Editors, Compiler, Optimizer, LISP & 
Assembly Code Intermixing, Compiled Code Library Loader, I/O Support, Macros, 
Debug Tools, Sort & Merge, On-Line Help, Other Utility Packages, Hardware and 
Operating System Access, Session Freeze and Restart, Manual with Examples expands to 
over 350 pages. Other UO-LISP products include: LISPTEX text formatter, LITTLE 
META translator writing system, RLISP high level language, NLARGE algebra system. 
Prices vary with configurations beyond (BLS.1) please send for FREE catalog. 
LEARN LISP System (LLS.1): Complete with LISP Tutorial Guide, Editor Tutorial 
Guide, System Manual with Examples, Full LISP Interpreter, On-Line Help and other 
Utilities. LEARN LISP fundamentals and programming techniques rapidly and effectively. 
This system does not permit expansion to include the compiler and other products listed 
above. 

LISP Tutorial Support (LTS.1): Includes LISP and Structure Editor Tutorial 
Guides, On-line Help, and History Loop. This option adds a valuable learning tool to the 
UO.-LISP Programming Environment (BLS.1). Order (LTS.1) for $19.95. 

REQUIRES: UO.LISP Products run on most Z80 computers with CP/M, TRSDOS or 
TRSDOS compatible operating systems. The 8086 version available soon. 

TO ORDER: Send Name, Address, Phone No., Computer Type, Disk Format Type, Package 
Price, 6.5% Tax (CA residents only), Ship & Handle fee of $3.00 inside U.S. & CN, $10 outside 
U.S., Check, Money Order, VISA and MasterCard accepted. With Credit Card include exp. date. 
Other configurations and products are ordered thru our FREE catalog. 


Northwest Computer Algorithms 


S-100 EPROM PROGRAMMER 


EPROM - 32 


e Field-proven board meets IEEE-696 standard. 
e Programs 1K through 32K (byte) EPROMs. 
e Textool zero-insertion-force programming socket. 
e EPROM is programmed through |/0 ports and can be verified 
through 1/0 ports or located in memory space for verification. 
e Programming voltage generated on-board. 
e Personality Modules adapt board to EPROMs: 
PM-1—2508, 2758 PM-3—2732, 2732A 
2916, 2716 PM-4—2564 PM-8—27128 
PM-2—2532 PM-5—2764 PM-9—27256 
e Feature-packed CP/M-compatible control software includes 
fast programming algorithm. 
e One year warranty. $269.95* 
(A & T) 


PM-6—68 764 


MicroDynamics 


Corporation 
Suite 245 e 1355 Lynnfield Road « Memphis, TN 38119 
(901)-682-4054 


* Price includes EPROM-32, documentation and two Personality Modules(specify). Additional 
Modules—$7.95. Control software on 8” SSSD diskette—$29.95, UPS ground—$2.00, UPS 


air—$4.00, COD—$1.65, foreign add $15.00, VISA & MASTERCARD welcome. 


P.O. Box 9 L - 
eee ood Beach, Ch eee (2153) 426-1898 See Dec. 1983 Microsystems for a review of the EPROM-32. 





Circle no. 61 on reader service card. 
Circle no. 39 on reader service card. 


PC FIRING LINE /PC UNDERGROUND™ 


Technical Disk Magazine 


Throw away your paper magazines! Save shelf space, save 
programming time, with the sizzling ready-to-use source 
code provided in each powerful bimonthly issue (currently 
2 DS/DD disks per issue). 


Dan Rollins, captured here relaxing after installing a device 
driver, has provided PCFL/PCUG with Polymaze, a maze 
generation program designed to delight children of all ages. 


As editor of PC FIRING LINE/PC UNDERGROUND (alias 
Bill Salkin), | defy you to find the following topics discussed 
in any magazine — be it paper or disk: hardware mainten- 
ance, installing device drivers, critical-error handling, the 
EXEC function call, random file 1/O, different memory 
models, bicubic splines, “printf” source code, and reducing 
the flab from IBM Pascal routines. High-sailing columns 
on Ada, Assembly, BASIC, C, FORTH, FORTRAN, LISP, 
Pascal, Hardware, and DOS! And NO paper magazine can 
supply FREEWARE, programmer-oriented DEMOS, and 
utilities in a ready-to-run format. 


If you have been turned off by disk magazines, then look again. PCFL/PCUG —the magazine of the future —is available today 
for $12 per single issue (half the price of our competitors’ and we contain at least twice their content) or $72 for a one-year 
(six-issue) subscription. 
All funds in U.S. dollars. Foreign countries please send money orders and add $5 (U.S.) airmail for each issue. 
Requires an IBM-PC, 128K RAM, and a double-sided disk drive. We ship ONLY DS/DD disks. 


ABComputing 
P.O. Box 5503, North Hollywood, CA 91616-5503 « (818) 509-9002 





Dan Rollins Bill Salkin 


| . _ Guy M. Kelly 


Gary M. Rader | : Ken Holcombe 
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O1CS 
0108 


O1E6 
O1E9 
O1EC 
O1EF 
O1F2 
OLFS 


O1F8 
O1FB 
O1FE 
0201 
0204 


0218 
0219 


O21C 
O21E 
0221 
0224 
0226 
0229 


022A 
O22T 
O22F 
0230 


0231 
0233 
0236 
0239 


O23B. 


O23E 
0241 
0242 
0245 


0247 


024A 
QO240 
250 


0269 


0278 
027A 
02710 
0280 
O281 
0283 
0286 
0289 
O28A 
028RB 
O28E 


O29 1 
0292 
0295 
0297 


029A 
029C 


70 


CN3604 


46494C4S20 


Cois02 
DAF SO1 
CLUEBAOS 
ChOocos 
COICEO? 
C3E4601 


COBAQS 
CDUCEO2 
CIPA0S 
Cn4504 


ODOAS45241 


AF 
S2EE04 


O460A 
CUE403 
NA3Z102 
FEOL 
CA7802 
B7 


CAICO2 
FEO4 
37 

c8 


0601 
CHE403 
N23102 
SE15 
COHUOO? 
SAEEO4 
3C 
S32EE04 


CLIPAOS 
CLli4s5o04 


2B2BSS4E41 


y 


RCVLP 


a 


s 
RCVEOT 


RCVSECT 


a> 


RCVRFT 


a 


RCVSERR 


a 


y 


RCVSABT 


ONOAZB2ZB41 


0601 
COE403 
NA3S102 
4 
04601 
CHE 403 
DA3102 
2F 

BA 
CA9102 
C33102 


7A 
S2EC04 
OE OO 
218000 


0601 
CHE 403 


% 
RCVSOH 


a 


? 


RCVIIATA 


’ 
RCVCHR 


CALL 
De 


CALL 


CALL 
CALL 
CALL 
JMF 


CALL 
CALL 
CALL 
CALL 
DR 


XRA 
STA 


NVI 
CALL 
JIC 
EPs 


ORA 


JZ 
CFI 
STC 
RZ 


MVI 
CALL 
JNC 
MVI 
CALL 
LIA 
INR 
STA 
CFI 
JNZ 


CALL 
CALL 
Ik 
aps 


MVI 
CALL 
JC 
MOV 
MVI 
CALL 
JC 
CMA 
CMP 
JZ 
JMP 


MOV 
STA 
MVI 
LXI 


MVI 
CALL 


ILPRT 


“FILE OFEN» 


RCVSECT 
RCVEQT 
WRSECT 
INCRSNO 
SENDACK 
RCVLF 


WRSECT 
SENDACK 
CLOSFIL 
ERXIT 


yP RINT MSG 
READY TO RECEIVE’ »sCRrLF v0 


G0 RECEIVE A SECTOR 
yCARRY SET-SECTOR IN OK 
WRITE TO DISK 
¥yINCREMENT SECTOR # 
y,ALL OK —- ACKNOWLEDGE 
¥GET NEXT SECTOR 


yEOT RCOVO-OUTPUT ALL TO DISK 
y>SENT ACKNOWLEDGE 

yCLOSE DISK FILE 

yEXIT (NO ERROR) 


CRyLFs’TRANSFER COMPLETES’ 


A 
ERRCT 


Br10 
RECYV 
RCVSERR 
SOH 
RCVSOH 
A 


RCVRPT 
EQT 


Kyi 
RECYV 
RCVSERR 
AyNAK 
SEND 
ERRCT 

A 

ERRCT 
ERRLIM 
RCVRET 


CLOSFIL 
ERXIT 


sRECEIVE A SECTOR 
yCLEAR ERROR CTR 


§LONG DELAY 

yRECEIVE ONE CHARACTER 
¥yNO CHAR - ERROR 

ySTART OF HEADER? 
¥YES-CONTINUE RECEIVING 
yCLEAR CARRY FOR NEXT TRY 


GO TRY AGAIN 
,;END OF TRANSMISSION? 
¥YES —- CARRY=ALL DONE 


yREC ERROR-IGNORE REST OF TRANSMISSION 
yGET NEXT CHAR 

sCHAR RECVII-GET ANOTHER 

9NO CHAR-DATA ALL IN 

ySEND NAK TO INDICATE REC ERROR 

»GET ERROR CTR 

yINCREMENT IT 

yPUT IT BACK 

¥TOO0 MANY? 

¥yNO-TRY AGAIN 


‘++UNABLE TO RECEIVE BLOCK’ 
CReLFs’+t+tABORTING++$ ’ 


Byl ¥SOH RECEIVED 
RECYV sSECTOR NUM IS NEXT 
RCVSERR sNO CHAR - ERROR 
Uva sSECTOR NUM TO 0D 
Byl ¥SHORT WAIT 
RECYV ¥yNEG OF SECTOR NUM IS NEXT 
RCVSERR #NO CHAR - ERROR 
yMAKE FOSITIVE 
0 ¥ SAME? 
RCVDATA #sYES ~ GET DATA 
RCVSERR #NOT SAME —- ERROR 
ArI ySECTOR NUM TO A 
RCYVSNO #SAVE FOR COMPARISON WITH EXPECTED 
C0 yCLEAR CHECKSUM 
Hy BASE+S0H *yBUFFER ADDRESS 
By i *>SHORT WAIT 
RECYV sGET A CHARACTER 
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CONVERT 


If you want to move source files or 
documents from one 
another ... you need 


Cuvee 


CONVERT operates on the IBM/PC and 
compatible computers. With it you 
can read, write and FORMAT over 4@ 
types of CP/M diskettes. 


CONVERT has been used to: 


Oo Move WordStar files from CP/M to 
PC/DOS diskettes. 

Oo Move Microsoft BASIC files from 
CP/M to. S diskettes. 

o "Publish" programs in many CP/M 
formats. 


In independent reviews CONVERT 
was found to be superior to other 
| conversion Drograe for quality, 
reliability and ease of use. 


You can use CONVERT too. 
for $99.00. 
welcome. From: 


Available 
VISA and MasterCard 


Selfware, Inc. 
3545 Chain Bridge 
1 
Fairfax, VA 22930 
(793 352-2977 
800) 242-4355 


Circle no. 62 on reader service card. 


Checks 


CHECKS & BALANCES 


$74.95 


Easily by entering a simple, easy 
to remember English command 
such as ‘Enter’ 


All operations are screen 
oriented. Make corrections as 
with a word processor by typing 
over, inserting or deleting 


Rd. 





Price 


Going from 
one operation 
to another 


Correcting 
errors 


Screen format 
for data entry 


Current and previous entry 
shown. Top screen scrolls to 
view account code as reminder. 
Data area looks like check 
register 


39 characters for payee, 45 for 
memo with 39 extra for each 
extra disbursement memo 


Space for 
payee and 
memo 


Start the New Year out right (and get last year in order for tax time). Pick up CHECKS & BALANCES at your | 
local dealer, or order direct from CDE. CHECKS & BALANCES is available for PC-DOS, MS-DOS and CP/M. 
Indicate computer type, operating system, and disk type (8 SSSD, 5%’’SSDD, or 5%” DSDD). California 


DOLLARS & SENSE 


$165.00 


Must chain in and out of many 
menus in order to move between 
different operations 


Not full screen. Only backs up 
one field at a time 


One entry per screen. Must 
have on paper a list of accounts 


25 characters for payee. 


A Professional Quality Z80/8080 Disassembler 
REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 















A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 














*“CP/M is a Trademark of Digital Resaerch, Inc. 


Circle no. 80 on reader service card. 


HOW IMPORTANT IS 


TM 


YOUR CHECKBOOK? 
Bala nces Consider the alternatives when 


choosing a financial package 
HOME ACCOUNTANT 


$150.00 


Like D&S, many levels of menus 
to traverse down, then back out 
and down another path 


Must stop work and chain to 
special correction menu and call 
up entry again, then through 
menus to resume work 


Like D&S, one entry per screen 
which bears no resemblance to a 
checkbook or ledger 


Only 15 characters each 


Program has no provision for 


memos 


c Checks 


% 2% : 
L Balahtes 


residents include 6% sales tax, and everyone include $2 shipping and handling. Dealer distribution bundling 
rates available. Write for complete catalogue of software for home and business. 


Visa/MC accepted 


CDE SOFTWARE 


(213)-661-2031 


2463 McCready Ave. « Los Angeles, CA 90039 





MBOO T and M ODEM7 (Listing Continued, text begins on page 62) 


Listing One 


O29F. 
O02A2 
O2ZAS 
O2AG 
O2A7 
O2ZAA 
O2AKR 
O2ZAL 
O2RO 
O2E3 
O2B4 
O287 
O2BA 
O2EB 
O2BE 
O2BF 
02C2 
02C3 


0204 
02C7 


O2C8 
O2CE 


O2CE 


O2L0 
O23 


O204 


0207 
O2D9 
O20C 
O2IF 
O2E1 


O2E4 
O2ES6 
O2E9 
O2EC 
O2EE 
O2F 1 
O2F4 


030C 
O30F 
0310 
0313 


0314 
0317 
O319 
O31C 
0310) 
O3S1E 
O321 
0341 
0344 
0345 
0348 
O34B 
O34C 
O34E 


72 


DAZLO2 
Chi204 
77 

2G 
C29A02 
oS 
0601 
ChE403 
DA3102 
BA 
Cewive 
SAECO4 
47 
SAEIIO4 


C20402 
C9 


CHCEO2 
C31802 


SEO 


CLPQOO4 
C9? 


312805 


O401 
CHE4O3 
N2D702 
S3E18 
CHLOO2 


0601 
CHE403 
N2ZE402 
56.20 
CULOO2 
Cn4504 


2 


bf 


RECVACK 


a 


y 


SENTACK 


bd 


SEND 


4 


ABORT 
y 


ABORTL 


a 


bf 


ARORTW 


ATI424F 4F 54 


SAETIO4 
3C 
32ED04 
Cc? 


115C00 
OELI 
ClOso0o 
3C 

C8 
ClI3Z4O04 


2B2R46494C 


CLh2ZA04 
FS 
CHh1i204 
CLHORO4 
Fi 
E6DF 
ae | 


y 


INCRSNO 


a 


y 
ERASFIL 


MVI 


CALL 
RET 


LXI 


MVI 
CALL 
JINC 
MVI 
CALL 


MVI 
CALL 
JNC 
MVI 
CALL 
CALL 
st) 


LIA 
INK 
STA 
RET 


LXI 
MVI 
CALL 
INR 
RZ 
CALL 
DB 
CALL 
FUSH 
CALL 
CALL 
FOF 
ANI 
CPI 


-_ 


RCVSERR 


TYFE 
MrA 

L. 
RCVCHR 
DyC 
Kyl 
RECYV 


RCVSERR 


D 


RCVSERR 


RCYSNO 
KrA 
SECTNO 
B 


RECVACK 


A 
B 


ABORT 


SENDACK 
RCVSECT 


ArACK 


WRMIDEM 


SF» STCK 


Rel 
RECYV 
ABORTL 
AyCAN 
SENT 


BRyl 
RECYV 
ABORTW 
Ay’ ya 
SEND 
ERXIT 


yNO CHAR ~- ERROR 
9KXKKKSECURITY BLANKET XKXXXX 
yCHAR TO BUFFER 

yPOINT TO NEXT BUFFER SLOT 
¥128 CHARS RECEIVED? 
yCHECKSUM TO P- 

SHORT WAIT 

yGET CHECKSUM 

yNO CHAR —- ERROR 

sRECEIVED = COMPUTED? 

yNOT SAME ~- ERROR 

GET RECEIVED SECTOR NUM 
yINTO B FOR COMPARE 

yGET LAST SECTOR NUMBER 
»SAME?P 

yREPEAT - IGNORE 

y INCREMENT LAST 

¥SAME AS RECEIVED? 


yNO ~ ERROR 
»sRETURN TO MAIN LOOF 


¥ HANDSHAKE 
¥GET NEXT SECTOR 


ySEND) CHAR TO MODEM 


yRESTORE CP/M STACK POINTER 


¥SHORT WAIT 

¥GET CHARACTER 

yLOOP UNTIL INFUT STOFS 
yCANCEL CHARACTER 

ySEND TO MODEM 


ySHORT WAIT 

¥GET CHARACTER 

yLOOF UNTIL INFUT STOFS 
yGET A BLANK 

ySEND TO MODEM 

yLEAVE (ERROR) 


‘“MBOOT FROGRAM CANCELLED S$ ’ 


SECTNO 
A 
SECTNO 


[ityF CR 
Cv17 
BDUOS 
A 


ILFRT 


‘+4+F ILE 


KEYIN 
PSW 
EIFS 
CRLF 
FSW 
UFH 
i Sa 


¥GET CALCULATED 
INCREMENT IT 
yFUT IT BACK 


SECTOR NUM 


yFCR ADDRESS 
ySEARCH FOR FIRST CODE 


9255 MEANS NO MATCH 


yNOT FOUND IS OR 
yF RINT MSG 
EXISTS» TYFE Y TO ERASE?’ 20 


¥GET KEYBOARD 
¥SAVE A COPY 
yECHO IT 

yCAR RET LINE FEED 

¥GET CHAR BACK 

yREMOVE FARITY AND CASE 
¥Y = ERASE IT 


CHAR 


(Continued on page 74) 
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NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
e Complete 8087 assembler 
mnemonics. 
e High level 8087 support. 


Full range transcendentals 
(tan, sin, cos, arctan, 
logs and exponentials) 


Data type conversion and 
I/O formatting. 

e High level interrupt support. 
Execute Forth words from with- 
in machine code primitives. 

e 80186 Assembler extensions for 
Tandy 2000, etc. 

e Video/Graphics interface for 
Data General Desktop Model 10 


FORTH 


e Fully Optimized & Tested for: 


BACKUP PROTECTED 

SOFTWARE 
WITH 

COPY II MAC 


From the team who gave you COPY II PLUS 
and COPY II PC comes a new complete disk 
backup utility for your MACINTOSH com- 
puter. Features include: 
























































¢ Bit Copy Program ¢ Copy Protect/Unprotect 
¢ Make Files Visible/Invisible ® Lock/Unlock Files 

¢ Sector/File Editor ¢ Copy Files/Disk 

¢ Format/Verify Disks e 































Rename File/Disk 








Increase the power of your 
MACINTOSH ... use COPY II MAC 


Available at your local dealer or direct from us. 









ONLY 











This product is provided for the purpose of enabling you to make archival copies only. 






ENTRAL POINT s 39.95 









oftware, Inc. IBM-PC IBM-XT IBM-JR 
PLUS $3.00 SHIPPING/HANDLING COMPAQ EAGLE-PC-2 
TANDY 2000 CORONA 


9700 S.W. Capitol Highway, #100/Portland, OR 97219 
(503) 244-5782 @ = WELCOME 


(Prepayment Required) 






Circle no. 6 on reader service card. 





Eco-C Compiler 


Release 3.0 


We think Rel. 3.0 of the Eco-C Compiler is the 
fastest full C available for the Z80 environment. 
Consider the evidence: 


Benchmarks* 
(Seconds) 


Benchmark O/C 


*Times courtesy of Dr. David Clark 
CNC - Could Not Compile 
N/A - Does not support floating point 


We've also expanded the library (120 func- 
tions), the user's manual and compile-time 
Switches (including multiple non-fatal error 
messages). The price is still $250.00 and 
includes Microsoft's MACRO 80. As an option, 
we will Supply Eco-C with the SLR Systems 
assembler - linker - librarian for $295.00 (up to 
six times faster than MACRO 80). 


For additional information, 
call or write: » 


EG (317) 255-6476 


6413 N. College Ave. @ Indianapolis, Indiana 46220 








Circle no. 35 on reader service card. 





























LEADING EDGE 


(Identical version runs on almost all 
MSDOS compatibles!) 


Graphics & Text 


(including windowed scrolling) 
Music - foreground and 
background 

includes multi-tasking example 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management Support 
Full megabyte - programs or 
data 


Complete Assembler 
(interactive, easy to use & learn) 


Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47sec BASIC 2000 sec 
w/AUTO-OPT 9sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 


HS/FORTH, complete system only: $250. 


wee Visa Mastercard ese 
Add $10. shipping and handling 


HARVARD 


SOFTWORKS 


P.O. Box 2579 
Springfield, OH 45501 
513/390-2087 


Circle no. 44 on reader service card. 





MBOO T an d M ODEM7 (Listing Continued, text begins on page 62) 


Listing One 
0350 C24K04 JINZ MXIT y>NOT Y ~- EXIT PROGRAM 
0353 115C00 LXI iyFCR yFCR ADDRESS 
0356 0F13 NVI C»19 sDELETE FILE CODE 
0358 CLOS00 CALL BLOS 

9 
O35B 115C00 MAKEFIL LXI DyFCR yFCR ADDRESS 
O3S5SE OE14 MVI Cr22 yMAKE FILE CODE 
0360 CDOS00 CALL RDOS 
0363 3C INR A y¥A=255 IF ERROR 
0364 CO ) RNZ sRETURN —- OR 
0365 Cih4S04 CALL ERXIT yLEAVE CERROR) 
0368 2E2B455252 DR “++ERROR - CAN’’T MAKE FILE’ »CRe LF 
0383 4449524543 Dg “DIRECTORY MUST BE FULL#$’ 

bf 

O39A 115C00 CLOSFIL LXI ItyFCR yFCR ADDRESS 
0390 OEF10 MVI Cr1é FILE CLOSE CODE 
O39F CHOS0O CALL ROS 
OS3A2 3C INR A yA=255 IF ERROR 
O3A3 CO RNZ yNOT ZERO IS OK 
O3A4 CD4S04 CALL ERXIT yLEAVE (CERROR) 
O3A7 2R2RB43414E DE \ “++CAN? “7 /CLGSE FILES” 

? 
O3BA = WRSECT EQU $ gWRITE SECTOR 
OS3BA 115C00 LX] liyFCR yFCR ADDURESS 
O3BD OF1S MVI Cr2i yWRITE SECTOR CODE 
OSBF CIIOS0O0 CALL BOOS 
O3C2 B7 ORA A ySET FLAGS 
03C3 C2C0703 JINZ WRERR 
O3C6 C9 RET 

7 
O3C7 CH34604 WRERR CALL LEP RE 
OSCA 2B2B455252 ap 5 “+tERROR WRITING FILE’ »CReLFs90 
OSE1 C30402 JMF ABORT 

bg 

? READ ONE CHARACTER FROM MODEM 

y 
OSE4 DS RECYV FUSH fi 
OSES CUESO4 MWTT CALL ROMDEM2 #sREAD MODEM CHAR 
OSE8 D2F203 JNC MCHAR yNO CARRY=CHAR RCVE 
OSEB OS : ICR K yNECREMENT WAIT CTR 
OSEC C2ES503 JINZ MWTI yWAIT SOME MORE CIN 6510) 
O3EF [1 : FOF I 
O3FO 37 51C yINDICATE ERROR 
O3SF1 C9 RET : 

bd 
O3F2 D4 MCHAR POP D 
OSr.o FS FUSH FSW ¥SAVE A COFY OF CHAR 
O3F4 81 AD C ,ADD TO CHECKSUM 
O3FS AF MOV CrA yFUT CKSUM BACK IN A 
O3F4 Fi FOF PSW ¥GET CHAR BACK 
O3F7 B7 ORA A yCLEAR CARRY 
O3F8S C9? RET 

bg 
OSFY 2A0100 INITAQR LHLE BASE+1 +GET XFER BASE ADDRESS 
O3FC 110300 LXI iv3 ¥GET OFFSET 
OSFF 19 DAD 0 yALUD OFFSET FOR STAT 
0400 222304 SHLI VSTAT+t1 sFUT IN CALL 
0403 19 DAD [i ,ADD OFFSET TO KEYIN 
0404 222E04 SHLO VKEYIN+1 
0407 19 DAL I yAUD OFFSET TO TYFE 
0408 221804 SHLD VTIYPE+1 


“a> 


(Continued on page 76) 
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IVE SOFTWARE DEVELOPMENT FACILITIES. Language and 


System design. 
re] 0): Vey toy] (e] 0) B) = Ome melaic-la Anat \Em@)e 1 0.0) =\@)er.~))\\(@) 5/6) Ee 
BS, Assembler + LISP. 
e USENET Bulletin Board System—800 + networked international 
UNIX sites, 190 + categories, 300 + new articles per day. 
e inter/intra system mail + communications. 
_e UNIFY: for professional data-base application development. 
» UNIX & System enhancements from U.C. Berkeley and 
___ Korsmeyer Electronic Design Inc. 
e Online UNIX manuals + Expert consultation available. 
e Just a local modem call from 300 + cities nationwide 
via Telenet. 
¢ Complete photo typesetting service. 
e FAST and LOW COST, low as $8.95 hr. connect. 
e $24.95 = 1 hr. FREE system time, SOLUTION 
News subscription, BYTE BOOK: Introducing 
The UNIX System, 556 pp. : 
“UNIX is a trademark of Bell Labs. 


5701 Prescott Avenue Lincoln, NE 68506-5155 
402/483-2238  10a-7p Central 





Circle no. 54 on reader service card. 


Ee. MULTI-TASKING for the IBM AT! 


nm also for the IBM PC or XT 
with MULTI-JOB™ 






“MULTI-JOB the most cost effective 
choice for the user with a need for multi- 
tasking.’’ PC Age Vol. 3.8 




























With MULTI-JOB software up to 9 IBM PC DOS compatible 
programs can be running at the same time. Example, have your com- 
munication program running in the background, and still be using 
your word processing, spreadsheet programs, etc., at the same time! 
The keyboard and screen can be assigned to any job with a simple 
keystroke. The remaining jobs will continue to run unattended. With 
the many different options, MULTI-JOB is a very powerful 
package. 

* No special hardware is required. 

* Allows priorities to be given between each job. 

* Programs can be run simultaneously or one at a time. 

* 30-day free trial period. 


MULTI-JOB $159.00 
ELECTRONIC DISK $ 49.00 
SPOOL PROGRAM $ 24.00 
SET MEMORY UTILITY $ 24.00 


B&L COMPUTER CONSULTANTS, 7337 Northview, ZC 
Suite B, Boise, ID 83704, (208) 377-8088. 


Dealer’s inquiries are welcome. Call or write for a free catalog. 


Circle no. 11 on reader service card. 





LISP 


FOR THE 
IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 
OF ARTIFICIAL 
INTELLIGENCE FOR 

YOUR IBM PC. 


DATA TYPES 
Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


M@ MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


M@ FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 
Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

OBJ File Loader 


M@ RUNS UNDER PC-DOS 1.1 or 2.0 
eee a ee. 







































lQLISP 
5%"’ Diskette 
and Manual _—s———S—Ss«<aSHT1 7.00 
Manual Only___————« $: 30.00 


if q Integral Quality 


P.0. Box 31970 
Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 


MBOOT and MODEM7 
Listing One 


O40K 
040D 
0410 


0412 
0413 
0414 


0415 
0416 
0417 
O414A 
O41B 
O41C 
04102 
O41E 


O41F 
0420 
0421 
0422 
0425 
0426 
0427 
0428 
0429 


042A 
042B 
042C 
0420 
0430 
0431 
0432 
0433 
0435 


0436 


0437 
0438 
0439 
043C 
O43F 
0440 


0443 
0444 


0445 
0446 
0448 


04458 
O44E 
0470 


0473 
0476 
0479 
047C 
0470 


O47E 


76 


SEOL 
Clh1204 
SEOA 


FS 
cs 
LS 


ES 
AF 
CLIOO0O 
E41 
D1 
Ci 
Fil 
C9 


CS 
NS 
ES 
CLIOOOO 
Ed 
Id 
Ci 
B7 
C9 


CS 

DS 

ES 
CLIOO0O 
es 

Di 

Ci 
E&7F 
C9 


ES 


7E. 
B7 
CA4304 
CH1i204 
23 
C33704 


ES 
C9 


td 
OEO? 
CLOSO0O 


ClI3404 


ONOA44AF 4E 


OLOA00 


Clis7o4 
Choko4 
2ZAZKOS 
F9 
Cc? 


3SEOS 


CRLF 


y 
TYPE 


ViTPE 


a 


y 
STAT 


VSTAT 


ed 


y 


KEYIN 


VRKEYIN 


3 
gS od ae | 


bd 
ILPLP 


F 


y 


ILFRET 


a 


4 


ERXIT 


& 


7 


MXIT 


b& 


bd 


EXZT 


OC) “> ~e> ~«» 


FPMOIEM 


MVI 
CALL 
MVI 


PUSH 
PUSH 
FUSH 


FUSH 
MOV 
CALL 
FOF 
POF 
FOP 
POP 
RET 


FUSH 


FUSH 
FUSH 
CALL 
FOF 
FOF 
FOF 
ORA 
RET 


FUSH 
FUSH 
FUSH 
CALL 
POP 
POF 
FOF 
ANI 
RET 


XTHL 


MOV 
ORA 
JZ 
CALL 
INX 
JMP 


XTHL 
RET 


FOP 
MVI 
CALL 


CALL 
DE 
0B 


CALL 
CALL 
LHLOD 
SFHL 
RET 


> SoS a A 


AyCR 
PYPE 
AyLF 


FSW 
3) 
[I 


H 
CrA 
$—-$ 
H 
ll 
R 
FSW 


| 
Bead 


i 


$~-$ 


I 
Rk 
7FH 


Ay 

8 

IL PRET 
LYPE 

H 
LcErer 


Il 
Cr? 
BOOS 


LLP RE 


(Listing Continued, text begins on page 62) 


yCARRAIGE RET 
gL INE FEED 


yTYPE A CHARACTER 


yCALL BOS 


yCONSOLE STATUS 


yCALL BOOS 


yREAD A KEY 


yCALL BROS 


TYPE A LINE 


9GET CHARACTER 
ySET FLAGS 

¥ZERO MEANS DONE 
yTYPE CHARACTER 
yNEXT MEM LOC 
yNEXT CHARACTER 


yMODIFIED RETURN TO STACK 


yEXIT (NOT ALWAYS ERROR) 
yF RINT EXIT MESSAGE 


CRyLF»’DON’’T FORGET TO DISCONNECT MODEM’ 


CR»yLF +0 


CLMIIEM 
CRLF 
STCK 


sCLOSE RS-232 FILE 
yFRINT A FINAL CRLF 
¥CFP/M STACK POINTER 
*BACK INTO SP 
yBACK TO CP/M 


6510 SETUF ROUTINES 


NVI 


Ax 


sFILE OPEN CMI 
(Continued on page 78) 
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Once you choose Lattice, 
our friends will C you through... 


LATTICE INC.: LATTICE WINDOWS, 
CURSES UNIX SCREEN CONTROL LIBRARY, 
C-FOOD SMORGASBORD, dB-C_ ISAM ~ 
COMPATIBLE WITH dBASE II AND 

lil... LIFEBOAT ASSOCI- 

ATES: FLOAT 87 8087 SUPPORT 

PACKAGE, HALO - GRAPHICS 

PACKAGE, PANEL SCREEN LI- 

BRARY... GREENLEAF SOFT- 

WARE: THE GREENLEAF C 
FUNCTIONS... C SOURCE: 

BASIC_C C FUNCTIONS FOR BA- 

Sig - USER: SOFTCRAFT: 

BTRIEVE ISAM FILE SYSTEM, 

BTRIEVE ISAM NETWORK FILE 

SYSTEM ... BLAISE COMPUT- 

ING: TOOLS, TOOLS2, VIEW 

MANAGER SCREEN _PACK- 

AGE... MORNING STAR 

SYSTEMS: PROLIBRARY, PRO- 

SCREEN ... CREATIVE SOLUTIONS: 
WINDOWS FOR C... NOVUM 
ORGANUM: C POWERS PACKS, MATH- 
EMATICS POWER PACKS, ADVANCED POWER 
PACKS, DATABASE POWER PACKS,  TELE- 
COMMUNICATIONS POWER PACKS W/ 
SOURCE... PHACT ASSOCIATES: PHACT 
ISAM LIBRARY... RAIMA CORPORATION: 


db_ VISTA DBMS... PHOENIX: 
PLINK86, PFIX86... RELATION- 
AL DATABASE SYSTEMS: C- 
ISAM FILE ACCESS METH- 
D...MINDBANK: V-FILE 
VIRTUAL MEMORY/FILE SYS- 
TEM... HUNTER & 
READY: VRTX C INTERFACE 
LIBRARY... 
SOFTWARE : 
GSS DRIVERS, GSS TOOLKIT 
KERNEL SYSTEM . OPT- 
TECH DATA PROCESS- 
ING: OPT-TECH SORT. 
ACCUDATA SOFTWARE: 
C-TREE ISAM, 
SORT... TRIO SYSTEMS: 
C-INDEX + ISAM . 
COMPU CRAFT: c VIEW 
FORMS/WINDOW MANAGE- 
MENT... SCIENTIFIC ENDEAVORS: 
GRAPHIC PRESENTATION — SCIENTIFIC 
GRAPHICS... LEMMA _ SYSTEMS, 
INC.: C LIBRARY... ESSENTIAL SOFTWARE, 
INC.: C UTILITY LIBRARY... SOFTWARE 
LABS: C UTILITIES PACKAGE .. . FAIRCOM: C- 
tree BY FAIRCOM ISAM WITH SOURCE 


Contact Lattice to learn how we can help your C program development. 


(il LATTICE 


P.O. Box 3072 

Glen Ellyn, IL 60138 
312/858-7950 

TWX 910-291-2190 





Circle no. 58 on reader service card. 


It’s a real bargain! Here’s why: 


e Only $49.95 plus shipping 


e 8080 to Z-80 Source Code 
Converter 


e Generates Microsoft com- 
patible REL files or INTEL 
compatible hex files 


e Compatible with Digital 


Research macro assem- 
blers MAC & RMAC 


e Generates Digital Research 
compatible SYM files 


e Full Zilog mnemonics 

e INCLUDE and MACLIB files 
e Conditional assembly 

e Separate data, program, 


common and absolute pro- 
gram spaces 


e Customize the Macro 


Assembler to your require- 
ments with installation 
program 


e Over 3 times faster than 


Microsoft M80 macro 
assembler 


e Z-80 Linker and Library 


Manager for Microsoft com- 
patible REL files available 
as a total package with 
Macro Assembler for only 
$95.00 


e Manual only is $15 





Circle no. 66 on reader service card. 


Pascal and C 


Programmers 


Your programs can 
now compile the 


FirsTime~ 


FirsTime is an intelligent editor that 
knows the rules of the language being 
programmed. It checks your statements 
as you enter them, and if it spots a 
mistake, it identifies it. FirsTime then 
positions the cursor over the error so 
you can correct it easily. FirsTime will 
identify all syntax errors, undefined 
variables, and even statements with 
mismatched variable types. In fact, any 
program developed with the FirsTime 
editor will compile on the first try. 





More than a syntax checker! 


FirsTime has many unique features 
found in no other editor. These powerful 
capabilities include a zoom command 
that allows you to examine the 
structure of your program, automatic 
program formatting, and block 
transforms. 


If you wish, you can work even faster 
by automatically generating program 
structures with a single key-stroke. This 
feature is especially useful to those 
learning a new language, or to those 
who often switch between different 
languages. 


Other Features: Full screen editing, 
horizontal scrolling, function key menus, 
help screens, inserts, deletes, appends, 
searches, and global replacing. 


Programmers enjoy using FirsTime. It 
allows them to concentrate on program 
logic without having to worry about 
coding details. Debugging is reduced 
dramatically, and deadlines are more 
easily met. 


FirsTime for PASCAL $245 
FirsTime for C $295 
Microsoft PASCAL Compiler $245 
Microsoft C Compiler $395 
Demonstration disk $25 


Get an extra $100 off the compiler when 
it is purchased with FirsTime. 
(N.J. residents please add 6% sales tax.) 


Spruce 


Technology Corporation 
110 Whispering Pines Drive 
Lincroft, N.J. 07738 
(201) 741-8188 or (201) 663-0063 


Dealer enquiries welcome. Custom versions 
for computer manufacturers and language 


developers are available. 


FirstTime is a trademark of Spruce Technology 


Corporation. e fee Mgt 
J 


Circle no. 65 on reader service card. 


MBOO i and M ODE M 7 (Listing Continued, text begins on page 62) 


Listing One 


0480 
0483 
0486 


0487 
0489 
O48C 
O48F 


G49O 
0491 
0494 
0496 
0499 
049C 
049T) 


O49E 
O4A0 
O4AS 
O4AG 
O4AP 
O4AB 
O4AE 
0481 
O4B2 
O4B3 
O4B4 


O4B5 
O4B7 
O4BA 
O4BE) 
04CO 
04C2 
O4CS5 
04C8 
04C9 
O4CA 
O4CEB 


04CC 
O4CE 
O4fi1 
0404 
0407 


0408 
O419 
040C 
O40DF 
O4E1 
O4E4 
O4E6 
O4E9 
O4EA 
O4ER 


O4EC 
O4ED 
O4EE 
O4EF 
OS2B 


OS20 


78 


320306 
CUlIgo04 
C9 


SEO4 
320306 
CULIBO4 
C9 


FS 
320406 
3EO3 
320306 
Cln804 
Fi 

cy 


SEO1 
320306 
CLnNeoO4 
3A0S06 
FEOO 
CAB304 
3A9406 
B7 

C9? 

37 

C9? 


SEO02 
320306 
ChrnBgo04 
3A90506 
FEOO 
CACA04 
3A0406 
B7 

C9? 

37 

C9 


SEO 
320306 
Cringeo04 
3A0406 
C9 


ES 
210016 
22O6F9 
3EO9? 
S200F9 
SEO1L 
3200CE 
00 

mek 

C9 


00 
OO 
00 


a 


y 


CLMDEM 


a 


y 


WRMDEM 


2 


y 


ROMDEM 


ROMNC 


a 


3 
REIMDEM2 


RIMNC2 


KYBD 


a 


y 
GO6510 


a 


9 


RCVSNO 
SECTNO 
ERRCT 


STCK 


bf 


STA 
CALL 
RET 


MVI 
STA 
CALL 
RET 


FUSH 
STA 
MVI 
STA 
CALL 
FOF 
RET 


MVI 
STA 
CALL 
LOA 
CFI 
wz 
LIA 
ORA 
RET 
STC 
RET 


MVI 


CALL 
LIA 
Cre 


LIA 
ORA 
RET 
STC 
RET 


MVI 
STA 
CALL 
LIA 
RET 


FUSH 


SHLD 
MVI 
STA 
MVI 
STA 
NOF 
FOF 
RET 


DB 
DB 
aD 
tis 
US 


END 


MOFUNC 
GO6510 


Ax4 
MOIFUNC 
G046510 


FSW 
MIICHAR 
Ay3 
MIIFUNC 
GO465S10 
FSW 


Ayl 
MOFUNC 
GO46510 


“MIREC 


0 
ROMNC 
MIICHAR 
A 


Ay2 
MOFUNC 
GO6510 
MDOREC 
0 
ROMNC2 
MIICHAR 
& 


Ar& 

MIIFUNC 
GO6510 
MIICHAR 


H 
H»yMD465 
KIOSAD 
Ax9 
RIOSFN 
Avil 
ON6510 


H 


MWAocsd 


ySTORE FOR 6510 
yTURN ON 6510 


sCLOSE FILE CODE 
ySTORE FOR 6510 
yTURN ON 6510 


¥ySAVE A COFY OF CHAR 
ySAVE FOR 6510 
WRITE MODEM CODE 
¥STORE FOR 6510 
gSTART 6510 

¥GET CHAR BACK 


yREAD FUNCTION 
ySTORE FOR 6510 
ySTART 6510 

ySEE IF CHAR RCVD 
70 —- NONE RECEIVED 
¥GO SET CARRY 

§¥GET CHARACTER 
¥SHOW CHAR RCVE 


SET —- NO CHAR 


yREAD WITH WAIT FUNCTION 
ySTORE FOR 6510 

ySTART 6510 

9SEE IF CHAR RCVE 

30 ~ NONE RECEIVED 

¥GO SET CARRY 

GET MODEM CHAR 

¥SHOW CHAR RCVE 


*+CARRY ~ NO CHAR 


yREAD KEYBOARD FUNCTION ft 
ySTORE FOR 6510 

yTURN ON 6510 

GET CHARACTER 


ySAVE HL 

GET 6510 RTNE ADDR 

ySTORE FOR BIOS6S 

yRIOS CODE TO CALL SUBPROG 
ySTORE FOR 6510 

y1 TURNS ON 6510 

yTURN IT ON 

s;REQD FOR HARDWARE 
sRESTORE HL 


End Listing One 
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Listing Two 


CPMMD65. TX 

LINE# LOC CODE LINE 

00001 0000 SOOO OOOO OOOO OOO KOKO OK 
00002 0000 4 

00003 0000 3 MODEM OR RS-232 HANDLER 

00004 0000 5 FOR USE WITH CF/M MBOOT 

00005 0000 3 

00006 0000 : W.G. FIOTROWSKI 

00007 0000 : 

00008 0000 SOOO OOOO OOK KOK KOK 
00009 0000 : 

00010 0000 j EQUATES 

O0O011 0000 : 

00012 0000 FILE =128 s;FILE NUMBER 

00013 0000 3 

00014 0000 SCNKEY =$FF9F yKERNAL ROUTINES 
00015 0000 SETLFS =$FFBA Be. . 

00016 0000 SETNAM =$FFBR 8 . 

00017 0000 OF EN =$F FCO fou! : 

00018 0000 CLOSE =$FFC3 Eee . 

00019 0000 CHKIN =$FFC6 foe . 

00020 0000 CHKOUT =$FFC9 oe . 

00021 0000 CLRCHN =$FFCC ee. ® 

00022 0000 CHROUT =$FFD2 ‘Eee . 

00023 0000 GETIN =$FFE4 eat : 

00024 0000 ; 

00025 0000 RIBUF =$F7 sRS-232 INFUT BUF ADD 
00026 0000 ROBUF =$F9 ;RS-232 OUTFUT BUF ADI 
00027 0000 RIDRBS =$29B ;RS-232 BUF END PTR 
00028 0000 RIDBE =%29C yRS-232 BUF STRT PTR 
00029 0000 ENABL =$2A1 3RS-232 ACTIVE 

00030 0000 j 

00031 0000 XLATE =$2100 9064 TO ASCII TABLE 
00032 0000 ‘RUFIN =$2200 #RS-232 INFUT BUFFER | 
00033 0000 BUFOUT =$2300 ¥RS-232 OUTPUT BUFFER 
00034 0000 j 

00035 0000 K=$1600 

00036 1600 : 

00037 1600 4C 06 16 MODEM JMF START 

00038 1603 00 FUNC +RYTE O sFUNCTION CODE 

00039 1604 00 CHAR »RYTE O #CHARACTER IN/OUT 
00040 1605 00 CHREC .BYTE O #RS-232 CHAR RCVDID FLAG 
00041 1606 ’ 

00042 1606 AI 03 16 START LIA FUNC 3GET FUNCTION 

00043 1609 18 3 CLC s;CLEAR FOR ADL 

00044 160A 62 03 16 AIC FUNC 3k2 FOR TABLE ACCESS 
00045 1600 AA TAX 

00046 160E EBD 6B 17 LOA ADRTBL-2*X s¢GET LOW ADDRESS 
00047 1611 80 1h 16 STA JMFSUB+1 sFUT IN JMF 

00048 1614 kB 6C 17 LUA ALDRTBL-1»X ¢GET HI ADDRESS 

00049 1617 8 iC 16 STA JMPSUB+t+2 sFUT IN JMF 

00050 161A 4C 00 00 JMF SUB JMF O ;JMF TO SUBFROGRAM 
00052 1610 j 

00053 1610 ; CLOSE RS-232 FILE AND CLEAN UF 

00054 1610 2 

0005S 161i AY 8O CLOSIT LDA #FILE ;FILE NUMBER 

00056 161F 20 C3 FF JSR CLOSE + KERNAL 

60057. 1422°- 20 57 14 JSR CLRKEF sCLEAR KEYBOARD BUFFER 
00058 1625 60 RTS 

00059 1626 5 

00060 1626 ; OPEN RS-232 FILE AND DO SETUP 

00061 1626 3 

00062 1626 20 iD 16 OPENIT JSR CLOSIT sCLOSE-IN CASE 

00063 1629 A? 80 LOA #FILE ;FILE NUMBER 

00064 162R A2 02 LIX #2 ;RS-232 DEVICE 

00065 16220 AO FF LOY #$FF 3NO COMMANDED 

00066 162F 20 BA FF JSR SETLFS 7CALL KERNAL 


(Continued on next page) 
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MBOO T an d M ODE. M7 (Listing Continued, text begins on page 62) 


Listing Two 


00067 
000648 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
000971 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 


00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 


80 


ho 


oF 
E4 


Fé 


80 
Cé 
06 
26 
80 
00 
OS 
Al 
02 
10 
oR 
9C 
1D 
O1 
OS 
R8 
Al 
O2 
08 
O1 
OS 


A? 


04 


FF 
FF 


17 


FF 
FF 


FF 
16 
16 


FF 
02 


FF 


a 


14 
14 


14 
O2 


16 
16 
02 


16 


FF 
14 


© > «> ~«> 


OTOK 


WAITOT 


4 “er “er “ep 


NFUT 


INOK 


WAIT 


INGET 


LIA 
LIX 
LOY 
JSR 
JSR 
LIX 
LOY 
STX 
STY 
LIX 
LOY 
STX 
STY 
JSR 
LIA 
STA 
RTS 


LRKBF JSR 


JSR 
CMP 
BNE 
RTS 


CHARACTER 


UTFUT LIX 


JSR 
BCC 
JSR 
JMP 
LDA 
JSR 
LIA 
ANI 
BNE 
JSR 
RTS 


LIX 
JSR 
RCC 
JSR 
JMP 
LIA 
STA 
LTA 
ANI 
BNE 
LDA 
CMP 
REQ 
LIA 
STA 
JMP 
LIA 
ANT 
REQ 
LIA 
STA 
JMP 
JSR 
STA 


#2 
#<SET232 
#>SET2Z32 
SETNAM 
OFEN 
#<RUFIN 
#>BUFIN 
RIBUF 
RIBUF+1 
#<BUFOUT 
#> RUF OUT 
ROBUF 
ROBUF +1 
RLIUXTEH 
#0 
LSTCHR 


EMF TY KEYBOARD 


SCNKEY 
GETIN 
#0 
CLRKEF 


#FILE 
CHKOUT 
OTOK 
OFENIT 
OUTFUT 
CHAR 
CHROUT 
ENARBL 
#1 
WAITOT 
CLRCHN 


#FILE 
CHKIN 
INOK 
OFENIT 
INFUT 
#0 
CHREC 
ENARBL 
#2 
WAIT 
RIDES 
RIDRE 
INEX 
#1 
CHREC 
INGET 
ENABL 


¥7TWO CHAR NAME 

7LO ADDRESS 

yHI ADDRESS 

y KERNAL 

9 KERNAL 

yRS232 INBUF LO ADDR 
y HI ADDR 

»yMOVE IT 


sRS232 OUTBUF LO ADDR 
¢ HI ADDR 

*MOVE IT 

sRUILD XLATE TABLE 


¥SHOW LAST CHAR AS A NULL 


BUFFER 


gKEY FRESSEDL? 

yGET A CHARACTER 

9IS IT A NULL 

yNOT A NULL —- GET NEXT 


OUTPUT TO RS~-232 


yGET FILE NUM 

yOPEN FOR OUTPUT 
yCARRY SET IS ERROR 
»yMUST BE CLOSED 
yTRY AGAIN 

¥GET CHARACTER AGAIN 
yKERNAL 

yGET STATUS 

ySTILL RUNNING BIT 
¥HANG UNTIL DONE 
y>CLEAR CHANNEL 


CHARACTER INPUT FROM RS-232 


yF ILE NUMBER 

sO0PEN FOR INPUT 
yCARRY SET IS ERROR 
yMUST BE CLOSED 

y TRY AGAIN 

yZERO FOR CLEAR 
¥SHOW NO CHAR RCVD 
STATUS BYTE 
yRECEIVING BIT 
yRUNNING — WAIT 
¥GET BUF START FTR 
sCOMFARE TO END 
yNOTHING IN BUFFER 
yONE FOR SET 

ySHOW CHAR RECEIVED 
¥GET THE CHAR 
y>STATUS BYTE 
yRECEIVING BIT 

yNOT RUNNING - EXIT 
yONE FOR SET 

»>SHOW CHAR RECEIVED 
WAIT UNTIL IN 

»>GET CHARACTER 


»>STORE FOR CP/M 
: (Continued on page 82) 
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“Ouvrez les 
fenetres! 


Introducing MATTIS | the powerful new 
developmental system from France. 
A complete and meticulously detailed program 
to make a programmer's work easier, faster, and... 
but of course... better. 





[_-] Window Management Systems (] Screen Generator L] Expanded 
Basic Commands (J Can be accessed from other languages LJ] 100% 
Assembler [J Automatic Scrolling in Windows (J Virtual Page larger 
than screen (up to 65534 rows x 65534 columns) LJ Save or Print 
Pages (] MS-DOS [J 170 Page Manual (In English Mon Ami!) 

[] Only $150. 


ORDER BY MAIL—WRITE OR CALL FOR COMPLETE DESCRIPTION 
No license fee. 


Softway, Inc. 


500 Sutter Street * Suite222— M « San Francisco, CA 94102 
Tel: (415) 397-4666 Telex: 880857 


Open the windows! 


Circle no. 92 on reader service card. 


"| WALTZ LISP" 


/ The one and only adult Lisp system for CP/M users. 








Waltz Lisp is a very powerful and complete implementa- 


p tion of the Lisp programming language. It includes 

t features previously available only in large Lisp systems. In 
p fact, Waltz is substantially compatible with Franz (the Lisp 
y running under Unix), and is similar to MacLisp. Waltz is 
p perfect for Artificial Intelligence programming. It is also 
g most suitable for general applications. 


A Much faster than other fink cecoeapineh Pale ¢ Long integers (up to 611 digits). Selectable radix ¢ True dynamic 
A character strings. Full string operations including fast matching/extraction. ¢ Flexibly implemented random file access. 
H ° Binary files. * Standard CP/M devices. * Access to disk directories. ¢ Functions of type lambda (expr), nlambda 
Z (fexpr), lexpr, macro. ® Splicing and non-splicing character macros. * User control over all aspects of the interpreter. 


BA ° Built-in prettyprinting and formatting facilities. ¢ Complete set of error handling and debugging functions including 
Y\ user programmable processing of undefined function references. * Virtual function definitions. © Optional automatic 


loading of initialization file. © Powerful CP/M command line parsing. ® Fast sorting/merging using user defined 
comparison predicates. ¢ Full suite of mapping functions, iterators, etc. © Assembly language interface. * Over 250 
functions in total. ¢ The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5” 
and 8" disk formats available. 


Version 4.4 


(TM) (Now includes Tiny Prolog 
written in Waltz Lisp.) 





RO ODE *Manual only: $30 (refundable with order). All 
_ foreign orders: add $5 for surface mail, $20 for 
dba beatbiate airmail. COD add $3. Apple CP/M and hard sector 
15930 SW Colony PI. 


ed paie gerne formats add $15. 
t 3 4 
eae Laboretevies: Call free T -800-LI P-4000 Dept. #11 


CP/M* Digital Research Corp. In Oregon and outside USA call 1-503-684-3000 





Circle no. 73 on reader service card. 
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mata 
SOURCES 


Pe PACK |: Building Blocks | 
250 Functions: DOS, 
Printer, Video, Asynch 


& PACK 2: Database 
100 Functions: B-Trees, 
Variable Records 


7 we 3: Communications 
135 Functions: Smart- 
modem’, Xon/Xoff, 
Modem-7, X-Modem 


& PACK 4: Building Blocks II 
100 Functions: Dates, 
Text Windows, 

Pull-down Menus 
Data Compression 


= PACK 5: Mathematics | 
35 Functions: Log, Trig, 
Square Root 


& PACK 6: Utilities | $99 
Archive, Diff, Replace, Scan, 
Wipe (Executable Files only) 


Lattice™, Microsoft™, DeSmet™, 
Cl-86™ Compilers on IBM PC/XT/AT™ 


Small and Large Memory Models. 


Credit cards accepted 
($7.00 handling/Mass. add 5%) 


ae SOFTWARE 
HORIZONS 
@ inc 


165 Bedford Street 
Burlington, Mass. 01803 
(617) 273-4711 


NOVUM ORGANUM 


Circle no. 90 on reader service card. 








MBOO T an d M ODEM7 (Listing Continued, text begins on page 62) 


Listing Two 


00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00154 
00157 
00158 
00159 
00160 
00161 


00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 


82 


20 
60 


A? 
Bi 
A? 


20 
AD 
Lo 
CE 
Do 
CE 


460 


Az 
A? 
9D 
ES 
Lo 


A2 
AO 
A? 
20 
A2 
AO 
A? 
20 
A2 


A? 
20 
A2 
AQ 
A? 


CC 


00 
04 


00 
00 
FA 


00 
41 
00 
very &) 
41 
JB 
é1 
ray 


JB 


ra) 
Ci 
IB 
41 


FF 


17 
17 
16 
14 
17 


17 


EF 
cr 
17 


14 
27 


146 


17 


17 


17 


IN2LF 


N2EX 


JSR 
RTS 


NFUT2 LIA 


STA 
LIA 
STA 
JSR 
LIA 
BNE 
DEC 
BNE 
DEC 
BNE 
RTS 


BOUCHR JSR 


KBNCHR 
KBDBNC 


KBDOLY 


Ser “er “SP 


JSR 
CMP 
BNE 
LIA 
JMP 
STA 
LOY 


LOX 
CMF 
BEQ 
CMP 
RECS 
LOY 
DEX 
BNE 
DEY 
BNE 
TAX 
LDA 
STA 
RTS 


BUILD 


BLOUXTE LIX 


BLIX1 


=> 


LIA 
STA 
INX 
BNE 


LOX 
LOY 
LIA 
JSR 
LIX 
LOY 
LIA 
JSR 
LIX 
LDY 
LIA 
JSR 
LIX 
LDY 
LIA 


CLRCHN 


#20 
OTCTR 
#0 
INCTR 
INFUT 
CHREC 
IN2ZEX 
INCTR 
IN2LF 
OTCTR 
IN2LP 


SCNKEY 
GETIN 
LSTCHR 
KBNCHR 
#0 
KBDEBNC 
LSTCHR 
#7 


#0 

#0 
KBDDLY 
#33 
KBDOULY 
#50 


KBDDLY 
KEBDODLY 


XLATE +X 
CHAR 


CHARACTER INPUT FROM RS-232 WITH WAIT LOOP 


s,OUTER LOOP LIMIT 

yPUT IN LOOF CONTROL LOC 
yINNER LOOF COUNTS AROUND 
yFUT IN LOOP CONTROL LOC 
ySEE IF THERE’S A CHARACTER 
¥GET RECEIVED CHAR 

yO — NONE RECEIVED 

yCOUNT DOWN INNER LOOP 
yWAIT 

COUNT DOWN OUTER LOOP 
yWAIT SOME MORE 


I 
’ 
§ INFUT KEYBOARD CHARACTER AND DEBOUNCE 
: 
K 


ySCAN THE KEYBOARD 
GET THE CHARACTER 
ySAME AS LAST CHAR? 
yNO - NEW CHARACTER 
§SAME — NEED A NULL 
GO TO DEBOUNCE LOOP 
yNEW CHAR —- SAVE IT 
yDEBOUNCE OUTER LOOP 


yINNER LOOP INIT 
yREFEATING CHAR LO LIM 
yNULL IS OK 

ySPACE IS HI LIM 

933 OR MORE IS OK 

yLONG DELAY FOR RPTG CHAR 
yDELAY LOOP 

y INNER LOOP 


y,OUTER LOOP 

yCHARACTER TO A 
¥GET ASCII VALUE 
ySTORE FOR Z-80 


ASCII TRANSLATION TABLE 


#0 
#0 
XLATE #X 


BLIIX1 


#0 

#65 

#0 
MVINTE 
#65 
#91 
#97 
MVINTB 
#971 
#96 
#91 
MVINTB 
#193 
#219 
#45 


yLOOF TO CLEAR TABLE 


7 LOOF 
ySTART INDEX 


ySTOP INDEX+1 
yNULL 


yLOWER CASE 


yMISC CHARACTERS 


yUPPER CASE 


(Continued on page 84) 
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ASSEMBLE 3-6 TIMES 
FASTER ON THE IBM PC 


QUALITY SOFTWARE AT 
REASONABLE PRICES 


CP/M Software by 
Poor Person Software 


Poor Person’s Spooler $49.95 


All the function of a hardware print buffer at a fraction of the 
cost. Keyboard control. Spools and prints simultaneously. 


Poor Person’s Spread Sheet $29.95 


Flexible screen formats and BASIC-like language. Pre- 
programmed applications include Real Estate Evaluation. 


Poor Person’s Spelling Checker $29.95 
Simple and fast! 33,000 word dictionary. Checks any CP/M 
text file. 


aMAZEing Game ; $29.95 


Arcade action for CP/M! Evade goblins and collect treasure. 


Crossword Game $39.95 


Teach spelling and build vocabulary. Fun and challenging. 


Mailing Label Printer $29.95 


Select and print labels in many formats. 


Window System $29.95 


Application control of independent virtual screens. 
All products require 56k CP/M 2.2 and are available on 8” IBM and 5” 
Northstar formats, other 5” formats add $5 handling charge. California 
residents include sales tax. 
Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 


Introducing FAST ASSEM-86", the first Editor/Assembler for the IBM PC and PC 
compatibles. FAST ASSEM-86™ (FASM) is significantly faster and easier to use 
than the IBM Macro-Assembler (MASM). Whether you are new to assembly 
language and want to quickly write a small assembly language routine, or are an 
experienced MASM user tired of waiting months to assemble large files, FAST 
ASSEM-86 will bring the excitement back to assembly language. 


FAST ASSEM-86 IS MUCH FASTER: 


e@ How fast is FASM™? The graph below shows relative assembly times for a 48K 
source file. For large files like this we blow MASM'’s doors off at 3 times their 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. 


FASM™ — (110 sec.) mmm 
ee | 


e FAST ASSEM-86 is faster for the following reasons: (1) Written entirely in 
assembly language (unlike MASM). (2) Editor, assembler and source file always 
in memory so you can go instantly from editing to assembling and back. (3) 
Eliminates the time needed to LINK programs. Executable .COM files can be 
created directly. (Also creates .OBJ files completely compatible with the IBM linker). 


FAST ASSEM-86 IS EASIER TO USE: 
FASM includes many other features to make your programming simpler. 


@ Listings are sent directly to screen or printer. Assemblies can be single stepped 
and examined without having to leave the editor. 


Access the built in cross reference utility from the editor. 
Full support of 186 and 286 (real mode) instructions. 


Both Microsoft and 8087 floating point formats are supported. 8087 and 287 
instructions supported directly without macros for faster assembly. 


@ Calculator mode: Do math in any radix even using symbols from the symbol table. 
@ Direct to memory assembly feature lets you test execute your code from editor. 
@ Coming soon: A coordinated symbolic debugger. 


COMPATIBILITY: FASM is designed for source code compatibility with MASM and 
supports most of its important features. 


« Dealer inquirés welcome 
Introductory Price $199 mpg shi goiray 


™ Box D1, 2931 Northrop Avenue 
Speedwar e Sacramento, CA 95825 


IBM, Microsoft trademarks of IBM Corp., Microsoft Corp. respectively. 





Circle no. 71 on reader service card. Circle no. 97 on reader service card. 


You Read Dr.Dobb’s journal 
And You Don’t Subscribe?! 


Save over $23.00 off newsstand prices for 2 yrs. 
save over $10.00 for 4 yr. 


Can you afford to miss an issue with information vital to your interests? As a subscriber 
you can look forward to articles on Small-C, FORTH, CP/M, S-100, Compiler optimiza- 
tion, Concurrent Programming and more, delivered right to your door. And you'll 
never miss the issue that covers your project. 


| enclose a check/money order 





Yes! Sign me up for Charge my Visa, MasterCard, 
2 yrs. $47 Gea eo Bao American Express 
Please bill me later 
Name 
Address 








Zip 
Credit Card Exp. date 
Account No. 
Signature 





3027 
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MBOO T and M ODEM7 (Listing Continued, text begins on page 62) 


Listing Two 


00200 1739 20 5D 17 JSR MVINTB 

00201 173C Ag? 00 LIA #0 

00202 173E en ic 21 STA XLATE+28 

00203 1741 8b in 21 STA XLATE+29 

00204 1744 8D 1E 21 STA XLATE+30 

00205 1747 8D 1F 21 STA XLATE+31 

00206 174A Ag 08 LDA #8 + BACKSPACE 

00207 174C 8D 14 21 STA XLATE+20 SINST DEL 

00208 174F 8D 94 21 STA XLATE+148 ;INST DEL UC 

00209 1752 Ag On LIA #13 7CR 

00210 1754 98 8D 21 STA XLATE+141 ;RETURN UC 

00211 1757 A 20 LDA #32 >SFACE 

00212 1759 8 AO 21 STA XLATE+160 ;SFACE UC 

00213 175C 60 RTS 

00214 175D j 

00215 1750 8C 79 17  MVINTR STY MXSTOP ;SAVE STOP VAL IN MEMORY 

00216 1760 9 00 21 MVINT1I STA XLATE?X ;PUT ASCII EQUIV IN TABLE 

00217 1763 18 CLC ;CLEAR FOR ADD 

00218 1764 69 O1 ADC #1 ;NEXT CHAR COLE 

00219 17646 E8 INX ;NEXT TABLE SLOT 

00220 1767 EC 79 17 CPX MXSTOP $COMFARE TO STOP VALUE 

00221 176A 0 F4 ENE MVINT1 7LOOF 

00222 176C 60 ‘ RTS 

00223 1761 ; 

00224 1760 ; LATA 

00225 1760 ; 

00226 1760 80 16 ADRTBL «WORD INPUT ;SUBPROG XFER TABLE 

00227 176F C2 16 «WORD INFUT2 ; IN ORDER OF REQ CODE 

00228 1771 62 16 »WORD OUTPUT 

00229 1773 10 16 »WORD CLOSIT 

00230 1775 26 16 »WORD OPENIT 

00231 1777 ODF 16 »WORD KBIICHR 

00232 1779 00 MXSTOP .BYTE 0 

00233 177A 06 SET232 .BYTE 670 $RS232 PARAMS 

00233 177B 00 

00234 177C 00 INCTR. .RYTE 0 $LOOP CTR — INPUT2 

00235 177n 00 OTCTR .BYTE O ;LOOF CTR -— INFUT2 

00236 177E 00 LSTCHR «BYTE 0 $LAST KEYBROARI!D CHAR 

00237 177F END 

ERRORS = 00000 

SYMBOL TABLE 

SYMBOL VALUE 
ADRTBL 176D BLOX1 1712 BLOXTR 170E BUFIN 2200 
RUFOUT 2300 CHAR 1604 CHKIN FFC6 CHKOUT FFC9 
CHREC 1605 CHROUT FFD2 CLOSE FFC3 CLOSIT 1610 
CLRCHN FFCC CLRKBF 1657 ENABL O?PA1 FILE 0080 
FUNC 1603 GETIN FFE4 IN2ZEX 16DE IN2LP 146CC 
INCTR 177C INEX 16BE INGET 1658 INOK 1480 
INPUT 1680 INFUT2 16C2 JMPSUB 161A KBDBNC 16F2 
KBDCHR i16IIF KBIDLY 1700 KBNCHR 16EF LSTCHR 177E 
MODEM 1400 MVINTI 1760 MVINTB 1750 MXSTOFP 1779 
OPEN FFCO OPENIT 1626 OTCTR 1770 OTOK 166F 
OUTFUT 1662 RIBUF OOF7 RIDEE 029C RIDBS 029R 
ROBUF OOF9 SCNKEY  FF9F SET232 177A SETLFS FFBA 
SETNAM FFBD START 1406 WAIT 16A9 WAITOT 1675 
XLATE 2100 : 


END OF ASSEMBLY 


End Listing 
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ne of the features of Forth is 
that it is a “‘structured”’ lan- 
guage. This means that Forth 


programs are written in variously sized 
chunks that fit together like a Chinese 
box puzzle. This is in contrast to “un- 
structured” Fortran or BASIC pro- 
grams, which are written in variously 
sized chunks that fit together like the 
noodles on a plate of spaghetti. This is 
what makes “structured” program- 
ming languages such as Forth so much 
superior to “unstructured” languages 
such as Fortran. 

Nowadays, Fortran has acquired 
roughly the same status among recent 
computer science graduates as Middle 
English or Aramaic. Nevertheless, 
there are still some of us around who 
not only remember what Fortran is, but 
have actually written programs in it. In 
fact, there are still a few people who 
think that “‘Forth” is just an abbrevia- 
tion for IBM’s Fortran 4 (H) compiler. 

Let’s face it: despite the universal 


structions, were somehow built into 
Forth? For that matter, wouldn’t it be 
nice every once in a while to be able to 
fall back on that old Fortran standby, 
the computed GOTO? 

Of course it would! It is the purpose 
of this little article to fill in the gaps in 
the pristine structure of Forth, to repair 
the glaring omissions we’ve just men- 
tioned, and to restore a little unstruc- 
tured sanity to the deeply nested, block- 
structured world of the dedicated Forth 
hacker. Note: all examples are written 
in Forth-83. FIG-Forth and Forth-79 
users will have to adjust the “tick” and 
ROLL references accordingly. 


The GOTO Statement 


: GOTO ( cfa --- ) R> DROP 
EXECUTE ; 


This little gem of a definition expects 
the code field address of a Forth defint- 
tion on the stack. You'll note, however, 





“What Forth programmer doesn’t long for a simple, 
unstructured, unconditional GOTO every 
once in awhile?” 





scorn heaped upon it by “modern” 
structured programming disciples, 
good old Fortran has its strong points. 
In fact, in certain situations, the oblig- 
atory structured nature of Forth 
makes elegant programming impossi- 
ble. What Forth programmer doesn’t 
long for a simple, unstructured, uncon- 
ditional GOTO every once in a while? 
Who doesn’t wish that the nice, 
straightforward arithmetic IF, which 
can be expressed so concisely in For- 
tran or in two or three machine in- 


Richard Wilton, Laboratory Micro- 
systems, P.O. Box 10430, Marina Del 
Rey, CA 90295, 


that control passes unconditionally to 
that definition. This eliminates the 
need for leaving status flags, return 
codes, and other assorted garbage on 
the data stack. Using GOTO also 
makes it easy to extract yourself from 
those messy BEGIN-WHILE-RE- 
PEAT’s and IF-ELSE-THEN’s you've 
nested ten deep. 


The Arithmetic IF Statement 


: AIF ( cfa_A cfa_B cfa_C n --- ) 
? DUP 0= 
IF ROT 
ELSE 
IF ROT ROT 
THEN 
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THEN 2DROP GOTO; 


The arithmetic IF statement is obvi- 
ous in concept: transfer control to point 
A if nis negative, to point B if it’s zero, 
and to point C if it’s positive. This is 
the sort of thing you do all the time in 
assembly language: 


OR AX,AX 

is: POINTA 

JZ POINT_B 
POIN Fo7€; 


But just try to express that succinct- 
ly in Forth: 


DUP 0< IF[’] POINT_A 
ELSE 0 = IF [’] POINT_B 
ELSE [’] POINT_C 
THEN 
THEN 
EXECUTE 


Pretty clumsy, right? Now here’s 
the elegant solution, which is concise 
and straightforward because it ignores 
the dogma of block-structuring: 

: EXAMPLE (n --- ) 
[?] POINT_A 


['] POINT_B 
[’] POINT_C 
3 ROLL AIF; 


The Computed GOTO 

Statement 

As a final example, we implement For- 
tran’s familiar 


GOTO (x1,x2,x3,...,xn),i 


a control statement so elegant that it 
was copied almost verbatim by the cre- 
ators of BASIC. Making it work in 
Forth requires setting up a table of 
code field addresses in advance. Then 
you simply index the table and GOTO 
the right address. 


: CGOTO ( cfa_table n --- ) 2* + 
@ GOTO: 


The utility of using CGOTO, rather 
than a viper’s nest of IF-ELSE-THEN’s 
or CASE statements, is obvious to any 
competent programmer and is not 
worth belaboring here. 

The more astute reader might ob- 
serve at this point, “But what about 
statement numbers?” Well, folks, if 


you think about it for a moment, you’ll 
realize that statement numbers make 
good sense in Forth. For one thing, 
numbered statememts would make it 
easy to do “source-directed” editing, 
thus eliminating the need for those 
clumsy, space-wasting screen files. 
Also, silly philosophical debates about 
the “proper” names for Forth defini- 
tions would be unnecessary if Forth 
definitions were numbered instead of 
named. 

By now it should be obvious how 
much can be gained by writing un- 
structured Forth programs. No doubt, 
further improvements could be ob- 
tained by incorporating elements of 
PL/I or even COBOL into Forth. 

Of course, such improvements must 
be left as an exercise for the reader. 
We're too busy adapting the syntax of 
Forth to fit onto 80-column punched 
cards. 
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Reviewed by Stefan H. Unger 


I spent several months wondering 
which advanced language I would get 
for my PC. At the time there was a lot 
of press about C, but in the back of my 
mind I really wanted to get APL. The 
best APL was reputedly from STSC, 
Inc., but I felt it was a little too expen- 
sive for my home use. 

I had programmed in APL since 
about 1972, mostly statistical routines 
that I needed in my work in computer- 
aided drug design. In fact, I had even 
published some APL functions, but I 
was certainly not what you would call 
a hard-core convert to APL. This lan- 
guage simply offered me—as a chem- 
ist and not as a programmer—the 
greatest freedom to be creative without 
worrying about the stultifying detail 
required by most other languages. At 
work I originally had used a STSC APL 
time-sharing service, switched to an- 
other APL time-sharing service for sev- 
eral years, then ported everything to 
our inhouse IBM 3081 VS APL 4.0 sys- 
tem. However, recently I have been 
busy with computer graphics and 
quantum/molecular mechanics and 
not statistics (i.e., APL) at all. 

Having been exposed to the ease and 
elegance of APL, I found that learning 


88 


BASIC for my PC was more self-flagel- 
lation than enlightenment. It was slow, 
awkward, and, well, silly (Isn’t it silly 
to have to dimension variables? After 
all, computers should do that kind of 
stuff for you... .). 

Turbo Pascal—with its easier user 
interface—was not yet getting much 
press, and the language didn’t seem to 
offer any particular advantages over 
Fortran or BASIC in general approach. 
So I bought a C compiler, knowing C 
might come in handy at work. At least 
it would run faster. Unfortunately, it 
was a disaster. I couldn’t accept the 
amount of time it took to compile and 
link after each minor debugging step, 
and, worst of all, I couldn’t really make 
much sense of the I/O function calls... 
it all seemed so needlessly complex. 

At this low point in my experience 
with C, I was given the opportunity of 
reviewing STSC’s APL*PLUS/PC sys- 
tem for DDJ. The irony of this is that 
DDJ is such a staunch advocate of C 
(which means that I have now enraged 
most of my audience). Of course, I’m 
not proposing that APL and C are 
equivalent or even on the same level. 
For example, some implementations of 
APL have been done in C (e.g., Dyalog 
APL), but not vice versa. (A recent ar- 
ticle by D. Saunders, “Unix, C and 
APL,” Unix/World, 1[6] ,59, 1984, in 
fact argues that the two languages are 
naturally complementary.) But for the 
average PC applications developer, is 
APL worth a serious look? Read on! 

First of all, I think learning well- 
fined APL symbols is less ridiculous 
than trying to match braces in C or 
remembering the dozens of function 
calls with their nonstandard syntax 
and location. The only real problem 
with APL is the character set and some 
of the difficulties that it causes in 
graphics/printer interfaces. Of course, 
C “gets closer to the machine,” but 
STSC APL*PLUS/PC allows interfaces 


to outside assembly code, DOS, DOS 
files, interrupts, peeking/poking, and 
so on. It is also much easier to learn, 
debug, and use, being what Saunders 
calls a ‘‘very high-level language.”’ 
From descriptions of the user interface 
to Turbo Pascal (full-screen editing, 
pointers between source and object 
code, fast compilations), I would say 
that APL is at least as good as—if not 
considerably better than—Turbo Pas- 
cal in this regard. 


The System 

The APL*PLUS/PC system is supplied 
on two diskettes, and a special APL 
character ROM replaces the one on 
your graphics card (the IBM version of 
APL uses software-generated charac- 
ters and requires both a color monitor 
and 8087). Special ROMs are available 
for IBM, AT&T, Compaq, Columbia, 
Eagle, Hyperion and Televideo micro- 
comuters. Corona is supported, but 
without graphics, Seequa is supported 
without communications and Wang is 
supported without graphics and sound. 
The IBM AT, other MSDOS computers 
and the DEC Rainbow are scheduled 
for support. (Although all of these ma- 
chines are “‘supported”’, there might be 
some tradeoffs in performance. Not all 
graphics boards are supported, either; 
check carefully. ) 

Only the least useful characters of 
the original character set have been re- 
placed by the special APL characters, 
so the system has virtually no impact 
on ordinary word processing, spread- 
sheets, and so on. The system requires 
192K and PC or MSDOS with one or 
more disk drives. Documentation in is 
four IBM-style loose-leaf binders with 
sections on installation, user’s guide, 
introductory tutorial, formatting, files, 
programmer’s manual, system func- 
tions, and a comprehensive index. Col- 
or-coded APL keyboard labels are sup- 
plied—the tackiest part of the 
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package. The Gilman and Rose text- 
book classic APL: An Interactive Ap- 
proach and a quarterly newsletter are 
also provided. You also get on the 
STSC mailing list, which will definitely 
keep your mailbox full. 

Other sources of information are 
available for additional cost: two vol- 
umes of Collected Whizbangs by Roy 
Sykes, Jr. (a fantastic collection of ad- 
vanced tricks) and a volume entitled 
APL in Practice: What You Need to 
Know to Install and Use Successful 
APL Systems and Major Applications, 
edited by Rose and Schick (to assuage 
any remaining doubt that APL is not 
taken seriously by the business world). 
The Rose and Schick book is directed 
toward mainframe APL uses, but the 
overview is good and a number of 
chapters contain some generally useful 
advice, particularly in the third part of 
the book: “The Core of APL.” 

STSC has also announced the first 
collection of application development 
TOOLS ($295, requires 256K, PC or 
MSDOS at 2.0 or later and APL* 
PLUS/PC at 3.0 or later), which pro- 
. vides communications, screen manage- 
ment, report and output formatting, 
| disk and file management, software 
development tools, and two games. 

Additionally, STSC has developed a 
Financial and Statistical Library 
($275) for the PC, containing many 
primitive functions that can be incor- 
porated into application programs; this 
means no window dressing on the out- 
put, although “dressed” versions are 
also available for some of the func- 
tions. The package is overpriced for 
what you get. For example, my favor- 
ite correlation coefficient program is 
faster than the one supplied in STA- 
TISTI; not all of the terms are defined 
in the manual (e.g., Durbin- Watson 
Statistic); there doesn’t appear to be 
any ANOVA, a common feature of 
most statistical packages (at least not 
in the index nor any of the obvious 
places); and we get the program FED- 
TAX79, my favorite .. . it is 1984, isn’t 
it? The list goes on. 

A new addition to STSC’s product 
line is Pocket APL, which is a simpli- 
fied and more affordable version of 
APL (only $95). It requires 128K RAM 
but uses a soft character set (instead of 
the special ROM) for color systems 
and the keyword APL system for 
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monochrome. Communications, 
graphics, full files and workspaces, and 
the full-screen editor are not support- 
ed, nor is there an interface to DOS. 
However, it does supply on-line calcu- 
lator mode, full-screen cursor control, 
on-line help, a file system, [] FMT for- 
matting, error trapping features, and 
over 50 system functions. STSC appar- 
ently believes that Pocket APL will be 
the Turbo of the APL world. 

STSC has also solved the major 
problem for applications developers 
who want to use APL, namely the re- 
quirement of a full APL interpreter. 
Because the cost of the STSC system is 
at least $595, this used to be a major 
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drawback. Now, a Run Time System is 
available for a license fee of from $50 
to $100, depending upon quantity and 
possibly your negotiating skills. The 
Run Time System allows applications 
packages that buffer the user from 
APL; the user has no APL directly 
available. Neither calculator mode nor 
definition-editing-display of functions 
is available. In fact, the APL character 
ROM is not required, and the keyboard 
stays in text mode. The full-screen edi- 
tor can be used only to edit variables. 
Applications developers are offered a 
software publishing program with roy- 
alties of “5 to 15 percent.” 

Generally, all of the documentation 
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is very well done with good quality pa- 
per, typesetting, editing, and so on. Of 
course, nothing is perfect. The Gilman 
and Rose textbook unfortunately is 
weakest on the most difficult aspects of 
APL (a consistent theme, as you shall 
see), and there are a number of minor 
editing problems. The front cover pro- 
claims “Includes APL2 and APL for 
PC’s,” but this is not really explained 
—in a forward, for example. In fact, I 
didn’t know what APL2 was and eager- 
ly awaited the revelation inside. Alas, 
the best I could do was to figure out 
that it was an IBM product. The index 
didn’t help either. There were only a 
few references to “APL for PC’s”’ in- 
side the text, despite the 1983 publica- 
tion date, and a reference to “see inside 
the back cover for details” in the pre- 
face... very funny! It’s blank. 

Two serious deficiencies in the pack- 
age are the lack of quick reference 
cards and the need for more detailed 
tutorial material on graphics, memory, 
and machine language features—the 
most difficult aspects of the extended 
language. This makes it tough on the 
neophyte or convert. A workspace 
demo on graphics was so confusing 
that I couldn’t make it do anything 
useful. Documentation for the inter- 
rupt handler[ |/NT gives only a few ex- 
amples, a stern warning about “im- 
properly constructed arguments,” and 
a reference to the section on | |CALL. 
Documentation for the latter system 
function is more extensive but still dif- 
ficult to follow. 

To whet the microsystem user’s ap- 
petite, I should mention that STSC has 
announced two interesting develop- 
ments: the maxi/mini APL*PLUS sys- 
tem will be available under Unix, 
which means speed, nested arrays, and 
a good multiuser environment, and an 
APL “compiler” for IBM mainframe 
VM/CMS and MVS/TSO will be avail- 
able, promising a three-fold enhance- 
ment in speed. (There are quotes 
around compiler because you still must 
run the compiled functions under the 
standard APL environment.) STSC is 
the most active, broadest-based APL 
vendor in the world, which I hope 
speaks well for its commitment toward 
_ APL for the PC. 

Finally, even as I write this review of 
Version 3.1, Version 4.0 is being an- 
nounced. Included is documentation on 
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all. workspaces, new stickers, and a 
placard with the APL character set. 
Speedups for )LOAD, )COPY, [| DEF, 
and[].SS (substring search), exponenti- 
ation, membership, and inner product 
are implemented (some up to 10 times 
faster). A soft character set for use on 
an IBM color monitor with IBM color 
graphics card eliminates the special 
APL ROM—at the considerable sacri- 
fice of off-screen scrolling and full- 
screen editor. Several new APL key- 
board facilities, new enhancements to 
the full-screen editor, graphics, and 
some new language features (e.g., en- 
hanced validity checking of certain pri- 
mitives) are implemented. The work- 
spaces have all been “reviewed and 
revised.””’ Communications using the 
smart terminal mode have been im- 
proved to allow, for example, the host to 
execute a line in the PC. An upgrade 
for existing users will be about $90. 


Features 

STSC APL*PLUS/PC is a nearly com- 
plete version of standard APL, lacking 
only some of the newer extensions such 
as nested arrays and some of the exten- 
sions of operators found in the IBM 
mainframe APL2 or STSC’s Unix- 
based system for maxis/minis. I will 
review a large number of the existing 
enhancements. 

A keyword mode is available through 
a function key toggle; in this mode, APL 
symbols are replaced by English words. 
An on-line HELP facility can be cus- 
tomized for use in applications. User- 
definable function keys are available 
through a system function. 

Workspace size expands to available 
memory. On my 256K system a 
)CLEAR workspace is 112,336 bytes, 
but memory can be partitioned for a 
non-APL functionality under DOS; for 
example, TOOLS supplies a RAM disk 
program (although I find the AST Su- 
perdrive much easier to use). Maxi- 
mum object size is 65,536 bytes, includ- 
ing overhead. In a clear workspace, this 
translates to about 8,190 floating-point 
and 32,761 integer numbers. Floating- 
point numbers are eight bytes (17 sig- 
nificant digits in range +— 
1.797 .... E308); both integer and 
Boolean are two bytes (range + — 
32767). No bit packers need apply! 

An optional 8087 math coprocessor 
is automatically detected by the system 


and can be toggled on/off with a 
[]POKE. It significantly speeds up ex- 
ponential, transcendental, and other 
functions. See the section on 
benchmarks. 

High-resolution black-and-white or 
color graphics and sound are supported 
with system functions. Use of the 
graphics primitives is nontrivial, dan- 
gerous in certain circumstances (misuse 
can blitz your graphics board!), and 
lacks a good tutorial description. The 
only documentation is in the system 
function outline and a brief section in 
the user’s guide. Using the session pa- 
rameter E=64 to reduce “snow” will 
cause a significant slowdown in the 
speed of color graphics; without this 
setting, color graphics literally flash on 
the screen, but with the setting, it takes 
about 3 seconds to paint a full screen. 
The sound primitive [|SOUND is ex- 
tremely easy to use, and a fascinating 
music-generating program in one of the 
workspaces produces pleasing little dit- 
ties. Simple windows and screen scroll- 
ing control are available; the TOOLS I 
package offers further enhancements 
such as menu processing, maintenance, 
screen input facility, and forms mainte- 
nance. 

Communications facilities for 
uploading and downloading from 
mainframe or other computers com- 
prise several system functions, plus a 
number of programs in one workspace 
as illustrative examples. Additional 
3278 and IRMA facilities are in 
TOOLS I. One of STSC’s ads shows an 
11-line program that sorts a DOS file, 
plots the results as a histogram, calcu- 
lates mean and variance, uses a full- 
screen editor to create a memo com- 
bining histogram, statistics, and 
descriptive test, issues a DOS com- 
mand to the PC, dials a host computer, 
and ships off the memo... not bad for 
11 lines. A built-in terminal emulator 
can be toggled on/off with a function 
key so that executing programs on the 
host or PC can continue executing. 
The simulated terminal mode is the ex- 
tended Datamedia 1520, but some cus- 
tomization is possible. 

Both full-screen and del editors are 
available. The full-screen editor is 
nicely done, but on my computer and 
graphics card (both Columbia), I must 
operate with the session parameter 
E=64 to reduce the small band of 
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dashes that flashes randomly when any 
key is hit. This is supposed to disable 
the full-screen editor, but in fact it still 
works. The only degradation in perfor- 
mance is that the editor does not exit in 
a way to restore the original screen: 
line numbers and a reverse video ED- 
ITIN are left and they do not scroll off 
screen. The full-screen editor works 
fine if I am willing to tolerate snow for 
each key press; alternately, I could de- 
fine a function key to clear the screen 
following exit from the full-screen edi- 
tor. These are relatively minor incon- 
veniences, but you may feel that for 
$595 you should get all features of the 
“supported” hardware. 

TOOLS I contains a large collection 
of special functions for maintaining 
other functions and workspaces, trans- 
ferring a workspace to a file and back, 
and documenting workspaces. Most of 
these are of interest only to the profes- 
sional applications developer. 

APL*PLUS/PC allows interfaces to 
non-APL programs such as assembler 
or DOS and allows []PEEK- and 
|| POKEing. The only documentation is 
in the reference manual and is difficult 
to follow; reportedly STSC has im- 
proved this in Version 4.0. 

Both a logical set of APL file system 
commands (compared to the awkward 
IBM shared variables) and an interface 
to “native” DOS files are provided. Up 
to 20 files can be tied at one time. 
There is complete forward compatibil- 
ity with APL files, but Versions 2.0 or 
2.6 will not work on Version 3.1 files. 

A set of powerful formatting, error 
trapping, and string searching primi- 
tives is supplied. The [|FM7, adapted 
from the mainframe APL*PLUS, is par- 
ticularly well suited to business report 
formatting. Some additional functions 
in a workspace help you set up tables, 
and even more functions are available 
in TOOLS I, including functions that 
can direct output to screen, APL file, 
DOS file, or printer and provide pagina- 
tion, page breaks, and so on. 

APL*PLUS/PC has 135 system func- 
tions and over 200 utility programs. 
About 26 of these are also system com- 
mands of the )xxx type long familiar to 
APL users, but most of the system func- 
tions are usable within functions. In 
Version 3.1, )S4VE, )LOAD, and )COPY 
can be painfully slow, with lots of 
thrashing about by the disk drives; 
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)LOAD and )COPY have been speeded 
up in Version 4.0. An alternative is to 
use a RAM disk—for safety, instead of 
using )OFF, you can write a small S/G- 
NOFF function that will copy files/ 
workspaces to permanent storage and 
exit via[ |SA OFF. 


Enhancements 
Many of the enhancements to APL, es- 
pecially adaptation to the PC environ- 
ment, come in the form of special sys- 
tem-level functions, variables, and 
constants. Because they are system-lev- 
el features, they are always available in 
every workspace. These are largely, but 
not entirely, unique to each vendor, and 
any APL program that incorporates any 
of the nonstandard system features will 
not be compatible with other products. 
However, because STSC provides the 
Run Time System as a total environ- 
ment for applications, this is of little 
concern. It would be a problem only for 
an individual trying to port applications 
between a mainframe (even between 
some STSC products) and APL*PLUS/ 
PC or between friends with different 
systems. 

The 135 system features in the APL 
2*PLUS/PC system provide informa- 
tion about the session, active work- 


Files: 21forAPLand13forDOS —s—~™ 


Character constants: 9 
Debugging tools: 8 
Detached HO: 4 

Disk: a. 

DOS: 1 
le ae 5 
Execution: 6 

Function Definition: 11 
General Information: 12 
Graphics/Screen: 21 
rel Ss 
Input/Output: La 
Keyboard: 6 

Latent Expression: 3 


Machine Language: 3 (call/interrupt/symb 


Memory: 3 (heen /peke/se0) 
Object: 9 

Session: 4 

State Indicator: 6 


Workspace/Object Manipulation: 2 


Workspace: 9 


Other: 1 substring searching, 1 fay pond 


Table | 
List of System Features by Type 


space, and objects in the workspace; 
retrieve objects or entire workspaces 
from disk; assist in debugging; commu- 
nicate with other devices; manipulate 
screen (cursor, window, graphics, and 
so on) and sound effects; and observe 
and manipulate the operating 
environment. 

System variables contain informa- 
tion about the environment, such as 
comparison tolerance, index origin, 
printing precision, and random link, 
about latent expressions, HELP file- 
names, what action to take if execution 
stops for immediate input, and memo- 
ry segment for peek/poke. Other sys- 
tem variables are for cursor position, 
keyword setting, printing width, and 
screen window control. 

System constants comprise a dozen 
constants that control the character set 
(atomic vector) and generate bell, 
backspace, delete, escape, form/line 
feed, new line feed, null character, and 
so on. 

Table I (below) gives an indication 
of the depth of support. 


Benchmarks 
An excellent comparison of STSC APL 


*PLUS/PC (Version 2.6) and IBM APL 
(Version 1.00) appeared in the March 
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1984 issue of Byte. The only weakness 
of these comparisons was that the exact 
timing algorithm was not stated. I have 
used the same benchmarks but have re- 
placed J. Bensimon’s large chess prob- 
lem with the DDJ Savage floating point 
benchmark and have used the docu- 
mented TIMER function supplied by 
STSC in the workspace CINO (Listings 
One — Four, page 98). This TIMER cor- 
rects for all overhead. 

All benchmarks were run first on my 
Columbia MPC 1600-1 without an 
8087. To include comparisons with the 
earlier version of STSC APL*PLUS/PC 
used in the Byte article (Version 2.6) 
and to obtain 8087 data, I enlisted the 
unsuspecting help of the STSC small 
systems hotline staff who happily per- 
formed tests No. 1-19 on both Ver- 
sions 2.6 and 3.1, both with and without 
the 8087 (a POKE turns the 8087 off, 
and the machine acts as if it were not 
there in all respects). 

The comparable STSC benchmarks 
were all uniformly faster than mine; 
this precipitated a number of phone 
calls to both Columbia and STSC and 
between the two vendors. We could not 
discover any obvious reason for this dis- 
crepancy, outside of a difference in the 
way the benchmarks were run: the 
STSC benchmarks were run using a 
master program to feed the arguments 
to TIMER, while my benchmarks were 
originally performed manually. The 
STSC benchmarks for No. 5 were per- 
formed on the wrong variable, so I have 
omitted No. 5, but the STSC bench- 
mark No. 2 was still about half the val- 
ue that I obtained on the Columbia. 

I had originally decided to report 
only ratios for the STSC data, but I lat- 
er decided to check the performance on 
an IBM myself. With the cooperation of 
two colleagues at work, I was able to 
boot my exact workspace on an IBM XT 
with 640K RAM and to perform all 
benchmarks in the same manner as on 
my Columbia at home. The XT without 
8087 gave much closer agreement to 
the Columbia values, including a value 
of about 9 msec for No. 2. 

The disagreement with STSC’s val- 
ues still bugged me, so I coded the mas- 
ter program and reran all benchmarks 
on my Columbia. The discrepancies 
were still there: I then copied all vari- 
ables and functions into a )CLEAR 
workspace and reran all benchmarks. 
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Lo and behold, the value of 4.5 flashed 
up for No. 2, in close agreement with 
STSC’s values; all other values im- 
proved significantly in agreement. 

An inexplicable bug apparently had 
crept into the original workspace and 
affected timing, not accuracy, in a 
manner not due to pending functions, 
limited [|WA, or any other obvious 
problem; I have shipped a copy of the 
“good” and “bad” workspaces off to 
STSC for examination. Benchmarks in 
APL are not as reproducible as they 
may be in other languages because a lot 
of bookkeeping goes on “behind closed 
doors.” The state of the workspace de- 
pends to some extent on what has pre- 
ceded it. Therefore, I now store a clean 
workspace for benchmarking and 
)LOAD it fresh for each run. 

First, let’s look at the performance of 
Version 2.6 (the Byte review version) 
compared with the current Version 3.1 
without an 8087. Curiously, some of the 
simple functions have gotten slightly 
worse (about 10% worse for No. | plus 
reduction, No. 3 maximum reduction, 
No. 6 indexing, No. 8 take, and No. 10 
transposition); however, much more 
substantial improvements were realized 
in No. 14 matrix division (66%), No. 15 
Fibonacci series (33%), and No. 17 di- 
vision (14%). Comparing the two ver- 
sions with an 8087 shows improvements 
in the newer version of 69% for No. | 
plus reduction and 87% for No. 14 ma- 
trix division, with smaller improve- 
ments in Nos. 2, 13, 15, 16, 17, and 19. 
There are 10 — 15% decrements in Nos. 
3, 6, and 10. 

Use of the 8087 math coprocessor 
gives improvements of 100 — 3600% in 
some benchmarks (Version 3.1; Nos. 
1,4, 13, 14, 16, 17, 18 and 19), partic- 
ularly the logarithm-exponential and 
transcendental benchmarks. 

A comparison of the Columbia MPC 
1600-1 benchmarks with those for the 
IBM XT, both without 8087, shows the 
Columbia (256K with [|WA of 95K) 
running fairly consistently at about 
96% of the speed of the XT (640K with 
[]WA of 469K). There are insignifi- 
cant differences between the VP and 
MPC (Cols. E+H) and between the 
XT and PC (Cols. C+F and D+G), 
showing that| |WA is not an important 
variable. 

The well-known Sieve of Eratosthe- 
nes (No. 20) involves a lot of branch- 


ing and showed little enhancement us- 
ing the 8087, as might be expected. 
The Savage floating-point benchmark 
(No. 21) can be coded easily and ele- 
gantly in APL as shown in Listing 
Three. The first line prints a time- 
stamp for benchmarking, initializes 
two variables, and precomputes the 
branchpoints for the iteration. The sec- 
ond line evaluates the expression and 
tests for iteration number. The last line 
prints a second time-stamp. Without 
an 8087 coprocessor (which signifi- 
cantly enhances exactly the primitives 
used in this calculation), the speed was 
about equal to double-precision BA- 
SIC, 855 seconds on the Columbia and 
833 seconds on the XT, but there was a 
low error of 1E-9. With the 8087, the 
time was only 198 seconds, which is 
not bad for an interpreted language. 
This compares favorably with several 
compiled languages (e.g., Supersoft 
Fortran on the PC), and is slower but 
more accurate than the only other APL 
listed, IBM APL (with 8087 implied), 
but I have not seen the coding used. 

Users usually base their choices be- 
tween upgrading to newer versions or 
between different vendors more on fea- 
tures than on small differences in 
“speed” benchmarks. However, STSC 
has clearly succeeded (intentionally or 
not) in reducing any glaring weakness- 
es that the Byte comparison might 
have showcased, particularly the lag- 
gard performance of matrix division on 
the older Version 2.6. 

Finally, some minor quibbles: I have 
used the Byte benchmarks for consis- 
tency, although some of these (Nos. 14 
and 19) involve two primitives when a 
new variable might be more appropri- 
ate. The PRIMES benchmark was from 
the Byte article; the variables should 
have been localized in the header. 


Development Package? 

What kinds of applications would you 
develop in APL? Surprisingly, the 
main revenue stream of the commer- 
cial APL systems is business and not 
scientific applications. For example, 
APL did not come to our IBM 3081 
mainframe because the scientists or 
statisticians wanted it; it came because 
a tie-wearing manager type wanted 
ADRS, which just happens to be writ- 
ten in APL. Two examples of applica- 
tions from the recent STSC PLUS* 
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NEWS newsletter are a financial sys- 
tem and a DBMS for the broadcasting 
industry. 

R.W. Butterworth makes some in- 
teresting points—albeit directed main- 
ly toward mainframe systems—in his 
article ““When APL is Inappropriate” 
(in APL in Practice, page 43). The 
main criterion is who or what reads the 
program most often or importantly 
during its full life cycle. Low-level lan- 
guages (e.g., assembly code or even C) 
favor machine readability, while very 
high-level languages favor people 
readability. Therefore, general support 
utilities, high-volume processing, or 
very complex calculations (‘“‘number 
crunching” scientific applications) are 
not good for APL because they are too 
machine intensive. On-line real-time 
applications involving complex tasks 
are also not good: portability is some- 
what limited if the code involves lots of 
enhancements, but this is true of most 
high-level languages. Hybrid solu- 
tions, however, offer many benefits; 
APL*PLUS/PC offers interfaces to ma- 
chine code and communications. 

When is development on micros us- 
ing APL warranted? Any project that 
involves a lot of ad hoc analysis is a 
good candidate for APL. However, 
with the Run Time System, all possible 
ad hoc variants must be predeter- 
mined, and either menu choices or pre- 
defined function names are required to 
determine which one will be used. This 
is probably not a limitation. If the envi- 
ronment cannot be predefined, you 
have only two choices. Either your 
APL application using the Run Time 
System must have a command simula- 
tion processor to allow the user to enter 
equations, possibly with the APL 
keyword system, or you should suggest 
the purchase of the full APL system. 
You can then supply a more “stan- 
dard” set of functions and perhaps 
some training in APL. 

Probably the most useful application 
of the APL Run Time System would be 
situations where the package needs to 
be customized quickly or frequently in 
a manner that cannot be achieved by 
menu choices of options, input of for- 
mulae, and so on, or if your business 
consists of lots of small custom jobs. If 
these concepts are correct, then I find 
the pricing of the Run Time System to 
be out of whack because it seems to pre- 
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Debugging Bugging You? 
Torpedo program crashes and debugging delays with 
debugging dynamite for the IBM PC... 





UP PERISCOPE! 






First, you install the hardware. 


The hardware’s a special memory board 
that fits in a PC expansion slot. Its 16K of 
write-protected memory contains 
Periscope’s resident symbolic debugger. No 
runaway program, however berserk it may 
be, can touch this memory! 


Then you UP PERISCOPE. 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Stop your system in 
its tracks at any time. 


Use symbol names instead 
of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program’s execution 
with Periscope’s comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
5300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 


Circle no. 30 on reader service card. 
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clude low-volume projects. (Perhaps a 
better pricing scheme for STSC would 
be a higher initial purchase price with 
possibly a small royalty fee.) 


Programming in APL*PLUS/PC 

To illustrate some of the fun and prob- 
lems involved in using APL*PLUS/PC, 
I decided to relate my experiences in 
converting a BASIC program (Listing 
Five, page 99) that I had written into 
the APL*PLUS/PC system (Listing Six, 
page 101 and Figure page 100). My 
Columbia came with Perfect Filer, one 
of the weakest members of the other- 
wise quite good Perfect series. Perfect 
Filer does not have math capabilities, so 
to do a billing system for my wife’s 
small private practice, I used the Filer 
simply to store the raw data. The bills 
then were written to a native DOS file 
(a:newaku.mss). The BASIC program 
read through this file line by line (or 
record by record) and looked for certain 
keywords/symbols. It then totaled cur- 
rent month, added balance forward, 
and subtracted any payments. The total 
was written in the appropriate spot, and 
if the balance forward was greater than 
the payments received, a message was 
written that payment in full is required 
each month; the revised bill for the first 
client was written out (a:newOak.mss) 
then on to the next client. 

Although processing the file line by 
line is probably the most natural way 
for a BASIC programmer to attack this 
problem (and was the approach I origi- 
nally took before I had APL*PLUS/ 
PC), an APL programmer knows that 
you really want to process all records 
simultaneously. The only problem is to 
differentiate between the clients. The 
APL program took about six hours 
compared to about twenty hours for 
the original BASIC program. One of 
the nicest features of APL*PLUS/PC is 
the full-screen editor and scrolling 
buffer. These allow you to try many 
algorithms easily; for example, you can 
use calculator mode to run-modify- 
run-modify and so on by editing on the 
screen. Then, at some point, you can 
write a function and further modify it 
using the full-screen editor )EDIT. 

A native DOS file is simply a long 
string of bytes in APL (8501 in this ex- 
ample), so it is easy to search the string 
for all occurrences of the keywords/ 
symbols (variable ALL gives the posi- 
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tions). Originally I did this with a se- 
ries of [| | S.S substring searches. The ac- 
tual numbers were then a fixed 
number of bytes away from these loca- 
tions (line [6] of PROCESS). A func- 
tion (CLEAN) was used to clean up any 
stray characters, to convert the normal 
minus to an APL negative, and to insert 
000 in blank “‘numeric” fields. The 
characters then were converted to 
numbers. The resulting vector CM was 
a list of all session charges in order. 

How to sum by client? There are 
usually several ways to do almost any- 
thing in APL. Much of what follows 
could have been avoided by the use of 
extended operators in APL2 or even a 
loop with the take primitive. However, 
the method that I found using APL 
*PLUS/PC is more typical. Line [7] of 
PROCESS reshaped the vector into a 
matrix that had number columns = 
number of clients (4 here) and number 
rows = total number of sessions (12; 
matrix A). Each column contained the 
original vector of session fees. What 
was then needed was to discover a mask 
of 0,1’s that could be used to multiply 
this matrix so that the columns (clients) 
could be summed to give the current 
month’s total charges for each client. 

Because of the layout of the bill, the 
location of the balance forwards al- 
ways occurred right after the current 
month’s charges. Therefore, a matrix 
formed by finding the location of all 
keywords/symbols less than the bal- 
ance forwards (matrix B) would iden- 
tify each client—the first client would 
have all columns filled, the second n-1 
columns, and so on to the last client, 
which would have only the last column 
filled. The last step would be to keep 
only the first 1 for each client; this was 
accomplished using the “‘less than 
scan’’ (matrix C). The final expression 
gives the sums CSUMS. 

The program actually ran rather 
slowly. This was obviously due to the 
multiple string searches using [ | S\S (re- 
portedly speeded up in Version 4.0). It 
would be nicer and faster to search the 
main string only once, at least for the 
new sessions if not for everything. This 
proved possible by using the member- 
ship function (see FINDALL) to find all 
occurrences of the symbols i, g, A, and 
W (for individual, group, administra- 
tive, and workshop). This would include 
any words that happened to have these 


letters present, but the actual location 
would have a blank on either side. 
Therefore, all you had to do was exam- 
ine the locations to the left and right, 
test for blanks, and do a logical AND 
(line [5] of PROCESS). The resulting 
algorithm was twice as fast as using the 
multiple | | S'S’s. 

The APL version contains about the 
same number of lines—excluding corn- 
ments and function headers—but runs 
almost exactly three times faster! Fur- 
ther optimization is undoubtedly 
possible. 

Having the APL*PLUS/PC system 
in the first place would have made it 
unnecessary to improve Perfect Filer 
because the proper data base could 
have been set up easily. However, the 
example illustrates many of the fea- 
tures of programming in APL*PLUS/ 
PC: it is fast, fun, well-adapted to the 
PC environment, and encourages ele- 
gant global solutions. Of course, what 
may be elegant for me may be pedes- 
trian for another APL user. 

APL was designed as a heuristic tool 
before it became a computer language. 
I find describing the conceptualization 
in English much more difficult than 
the symbolic description in APL shown 
in Listing Six. Unless you have some 
experience with APL, you may find the 
opposite to be true. Those with some 
APL under their belt tend to program 
in a twilight zone between the English 
verbalization and the vector/matrix 
concepts of APL. In many instances, 
you know that there is a trick; you just 
have to remember it, probably by fid- 
dling on screen. In this case, | knew 
there was a scan function that would 
do it—line [7]—I just couldn’t re- 
member which one. 


Menu ala TOOLS 
Having received the TOOLS package 
just as I was completing the major por- 
tion of this review, I have not had a lot 
of time to fully evaluate all of its fea- 
tures. I have spent most of my time with 
the menu and screen design sections. 
The benchmarks table (Table [], 
page 95) was produced using functions 
in the distribution workspace FOR- 
MAT and OUTPUT workspace from 
TOOLS. Due to scanty documentation, 
most of the minor difficulties involved 
function COLNAMES from FORMAT, 
which required a bit of fussing to work 
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3. MAXIMUM REDUCTION Ze sTAIME 2 © SS 6M 8B 8 8 8 
4, EXPONENTIATION ZeVI«, 4 _ 41697 9571 1704 9249 9426 1704 9250 9473 
5. ABSOLUTE VALUE Z| VR 190. 65 120 4G 
6. INDEXING Z€VREVICL203) : a2. 623060 Gl GCS CG*:” 
7 SORTING ZEVICPVI) 430 «146 «6149 459 «6425 iG 4G ian 





















8. TAKE Z¢ “2 14MR | 25 29. 2. He OU 

9, MEMBERSHIP ZeVIEV] 149 149 {454 453 156 

10. TRANSPOSITION Z€2 1RMC 6 BA © 6B A A? 

14.QUTER PRODUCT, CHARACTER ZeVC+,=VC -- fat 480. 157 137 $43 «86156 «4456 igs 
{2.QUTER PRODUCT, INTEGER  2€(150)°.+150 445 445 440 444 465 (440 4kk 
13. INNER PRODUCT, REAL ZEVRL.+VR — #846 553 280 S75 son 

14.MATRIX DIVISION ZEMRBLOFUR | 4486 2217 196 735 776 

{5.PIBONACC] SERIES | ZeFBNCC (LISTING — +3832 «3945 2487 2687 2804 

16.MULTIPLICATION ZEVRX3,44 | {46 478 112 490. $07 

17. DIVISION Z€VR=3,144 | 152 733 18 632 652 

18.LOGARI THM Z¢e@VR i391 $085 .131 4872 4970 

19.SINE ZL 0VRX, 4 484 6060 453 6103 6224 
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21.SAVAGE FLOATING PT. (LISTING 3) SEC. 


1) Times are in milliseconds per execution for Benchmarks #4-49 and _ 
seconds for #20-21. #20 is reported for 10 exenutions, as per convene 






2) TIMER (APL*PLUS/PC Workspace CINO, see Listing 4) was with 100 seeetl ce na with — 
'REO' for NULLEXP, except for #15 where 'ReENONFN' was used. NONFN is aie _ 
adic and simply assigns R€0. Benchmarks #20 and #214, Since they are full 
functions and are relatively slow, were timed with QAI£2], as shown in the 
Listings 2-3. 









3) The PC and VP had monochrome monitors, the XT had both monochrome . if 
and colér monitors and boards and the MPC had color monitor. ll tests | : 
were done in monochrome mode. The PC,VP and XT used DOS 2.4, the MPC 2.0, 






4) The variables, as in the Byte March 1984 review, are: 


¥ 







MI€10 10eVI€( 50000 1 O O 1)/1500 

VLti 0110001 

MR€i0 10eVREVI+0.14 

MC€26 260VCe' ABCDEFGHI JKLMNOPQRSTUVWXYZ' 








Table Il 
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ees See 





properly. Use of the functions in OUT- 
PUT was relatively straightforward. 
To test menu and screen functions 
from TOOLS, I decided to adapt some 
recombinant DNA programs to the PC 
using these features. A menu is divided 
into title, text, choice, and footnote sec- 
tions and allows multiple choices with 
validity checking; it has one write-in 
area, time-out features, and full color/ 
monochrome decorations. An enor- 
mous number of possible options are 
available. A screen is similar but more 
general; for example, multiple write-ins 
can be made. Some run-of-the-mill 
screens can be set up very simply: 
‘MENU MENU’ CHOICE FROM ‘/AU 


CHAMBERTIN/PEARL RIVER SEA- 
FOOD/CHUCK E. CHEESE’. 

In setting up the main DNA menu, I 
decided it would be useful to have the 
name of the registered owner appear 
somewhere. It was not at all obvious 
how to enter current information such 
as date, time, or user into the menu. 
The screen is first designed and then 
“compiled” for fast display (not a true 
compilation, rather an interpretation 
into more primative APL functions). 
Several of the key functions are locked 
and the terse error messages are not 
very helpful. The documentation is 
weak on how to create certain effects; 
some of these can be gleaned only from 























QUIT 


.. already complete . . 


we did the hard work. Already. 


VISA, check, or P.O. 
@ Compilers: 


GREENLEAF 
SOFTWARE ¢ 





2101 HICKORY DRIVE 





MEMO: fe Programmes 


WORKING 
SO HARD. 


These people have quit working so hard: IBM, Honeywell, Control Data, 
GE, Lotus, Hospitals, Universities & Government Aerospace. 


THE GREENLEAF FUNCTIONS" 


THE library of C FUNCTIONS that probably has just what you need .. . TODAY! 





... already has what you’re working to re-invent 

.. already has over 200 functions for the IBM PC, XT, AT, and compatibles 
. already tested... 
... already has demo programs and source code 
... already compatible with all popular compilers 
... already supports all memory models, DOS 1.1, 2.0, 2.1 

.. already optimized (parts in assembler) for speed and density 
... already in use by thousands of customers worldwide 

.. already available from stock (your dealer probably has it) 


: .. It’s called the GREENLEAF FUNCTIONS. 


Sorry you didn’t know this sooner? Just order a copy and then take a break — 


on the shelf 


THE GREENLEAF FUNCTIONS GENERAL LIBRARY: Over 200 functions in C 
and assembler. Strength in DOS, video, string, printer, async, and system interface. All DOS 1 
and 2 functions are in assembler for speed. All video capabilities of PC supported. 
All printer functions. 65 string functions. Extensive time and date. Directory searches. 
Polled mode async. (If you want interrupt driven, ask us about the Greenleaf Comm 
Library.) Function key support. Diagnostics. Rainbow Color Text series. Much, much more. 
The Greenleaf Functions. Simply the finest C library (and the most extensive). 
All ready for you. From Greenleaf Software. 

... Specify compiler when ordering. Add $7.00 each for UPS second-day air. MasterCard, 


Sh, BSC aera $349 (Lattice, Microsoft, Mark 

== Luttiee oo. as6s $395 Williams, CI C86) 
Mark Williams ...$475 @ DeSmet C.......... $150 
@ Comm Library...... $160 


GREENLEAF SOFTWARE, INC. 


¢ CARROLLTON, TX 75006 


@ General Libraries. ... $175 


@ (214) 446-8641 





Circle no. 43 on reader service card. 
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the single example in the workspace 
(for example, how to test for color 
boards and change attributes appropri- 
ately or how to center text). After a 
few calls to the hotline, I found that 
the only way to enter current informa- 
tion is to use some special editing func- 
tions to replace defined fields in the 
“compiled” menu. 

Once the menu is “compiled,” it 
flashes instantly on the screen—unless 
you are using E=64 at sign-on, in 
which case it takes several seconds to 
paint the screen. Despite tiie shortcom- 
ings of the documentation, once you 
get the hang of it, you can design some 
very nice menus. 

I also had several problems with the 
screen functions and documentation. 
In the step-by-step discussion of how to 
design a sample screen, a critical 
“press enter” was omitted following 
the naming of the first field (EXT). No 
other exiting gambit works. The docu- 
mentation is also confusing concerning 
the use of the function SCFKEYSOFF 
with SCCLOSE; you must not use these 
together. Instead, if you want to set 
function keys, you must follow a more 
complicated procedure that is outlined 
in the documentation, but the incorn- 
patibility is not made clear. 

SCINIT calls the undocumented 
SCCURSORSET, which is [JO sensi- 
tive (=0 works), a function similar in 
purpose to WHITEWASH in the MENU 
workspace for color/mono conver- 
sions. If you want to re-use a screen (as 
I did), you must blank out any filled-in 
fields that you do not want to carry for- 
ward before you store it using SCOUT- 
PUT’ '. After finally working out all of 
these details, I had a screen that looked 
nice, only lit up the write-in field when 
a function key was pressed and waited 
for proper input; unfortunately, even 
when compiled the screen took about 
three seconds to appear, much slower 
than a menu. The SCREEN workspace 
was the least satisfactory of the TOOL 
features that I was able to test. 


You Get What You Pay For 

STSC APL*PLUS/PC is not a cheap 
package, but it’s worth every penny 
you spend on it. The claim is that the 
package is a development tool... and 
it is. It’s possible to develop serious 
packages or to use the system in con- 
junction with LANs or mainframes to 
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#68 Volume VII, No. 6: 
Multi-68000 Personal Computer—PDP-1802, Part One—Improved LET for LLL 
Basic—CP/M Print Utility. 


#69 Volume VII, No. 7: 
IBM-PC Issue: CP/M-86 vs. MSDOS (A Technical Comparison)—Hi-Res Graphics on 
the IBM-PC—PDP-1802, Part ll—Review of Word Processors for IBM. 


#70 Volume VII, No. 8: 
Argum “C’’ Command Line Processor—SEND/RECEIVE File Transfer Utilities— 
Intel's 8087 Performance Evaluation. 


#71 Volume VII, No. 9: 

FORTH Issue: Floating-Point Package—H-19 Screen Editor—Relocating, Linking 
Loader—Z8000 Forth—Forth Programming Style—8086 ASCII-Binary Conver- 
sion Routines—CP/M Conditional SUBMIT. 


#72 Volume VII, No. 10: 
Portable Pidgin for Z80—68000 Cross Assembler, Part |—MODEM and RCP/Ms— 
Simplified 68000 Mnemonics—Nested Submits—8086/88 Trig Lookup. 


#73 Volume VII, No. 11: 

Wildcard UNIX Filenames—Tests for Pidgin—68000 Cross Assembler Listing, Part 
2—Adding More BDOS Calls—The Perfect Hash—BASIC Memory Manage- 
ment—Benchmarks for CP/M-86 vs. MSDOS, and the 8087. 


#76 Volume VIII, Issue 2: 

PISTOL, A Forth-like Portably Implemented Stack Oriented Language—Program 
Linkage by Coroutines. Forth to BASIC—Linking CP/M Functions to Your High- 
Level Program—Concurrent CP/M-86—CP/M-80 Expansion Card for the Victor 
9000—REVAS Disassembler. 


#77 Volume VIII, Issue 3: 

The Augusta P-Code Interpreter—A Small-C Operating System—6809 Threaded 
Code: Parametrization and Transfer of Control—A Common-Sense Guide to 
Faster, Small BASIC—A Fundamental Mistake in Compiler Design—Basic Disk I/O, 
Part I. 

#78 Volume VIII, Issue 4: 

RECLAIM Destroyed Directories—Binar y Magic Numbers—8080 Fig-Forth Direc- 
tory & File System—SAY” Forth Votrax Driver—TRS-80 8080 to Z80 Translator— 
Basic Disk I/O, Part Il. 


#79 Volume VIII, No. 5: 

The Augusta Compiler—A Fast Circle Routine—Enhancing the C Screen Editor— 
Shifts and Rotations on the Z80—The SCB, TSX, and TXS Instructions of the 6502 
and 6800—MS-DOS vs. CP/M-86—Controlling MBASIC—The Buffered 
Keyboard—IBM PC Character Set Linker—Flip Utility for the IBM PC. 


#80 Volume VIII, Issue 6: 

Fast Divisibility Algorithms—B-Tree ISAM Concepts—CP/M BDOS AND BIOS 
Calls for C—Serial Expansion in Forth—Fast Matrix Operations in Forth, Part I— 
Yes, You Can Trace Through BDOS—Julian Dates for Microcomputers—8088 Ad- 
dressing Modes—8088 Line Generator—CP/M Plus. 


#81 Volume VIII, Issue 7: 

The Augusta Compiler, continued—RED: A Better Screen Editor, Part I—Anatomy 
of a Digital Vector and Curve Generator—Fast Matrix Operations in Forth, Part 
l—The AGGHHHI Program—MBOOT Revisited—CP/M Plus Feedback—MS- 
DOS Rebuttal—68000 Tools—Sizing Memory on the IBM PC. 


#82 Volume VIII, Issue 8: 

Serial-to Parallel: A Flexible Utility Box—McWORDER: A Tiny Text Editor—And 
Still More Fifth Generation Computers—Specialist Symbols and I/O Benchmarks 
for CP/M Plus—CP/M Plus Memory Management—Zero Length File Test— 
PAUSEIF, QUITIF, and now SKIPIF—ACTxx Cross Assemblers. 


#83 Volume VIII, No. 9: 

FORTH ISSUE: Forth and the Motorola 68000—Nondeterministic Control VW/ords 
in Forth—A 68000 Forth Assembler—GO in Forth—Precompiled Forth 
Modules—Signed Integer Division—Some Forth Coding Standards—The Forth 
Sort. 

#84 Volume VIII, No. 10: 

Unix to CP/M Floppy Disk File Conversion—A Small-C Help Facility—Attaching a 
Winchester Hard Disk to the S-100 Bus—Using Epson Bit-Plot Graphics—8086/88 
Function Macros—Auto Disk Format Selection—CP/M Plus Device Tables. 


#85 Volume VIII, Issue 11: 
A Kernel for the MC68000—A DML Parser—Towards a More Writable Forth 
Syntax—Simple Graphics for Printer—Floating-Point Benchmarks. 


#86 Volume VIII, Issue 12: 
Faster Circles for Apples—Cursor Control for Dumb Terminals—Dysan’s Digital 
Diagnositic Diskette—Interfacing a Hard Disk Within a CP/M Environment—The 
New MS-DOS EXEC Function. 


#87 Volume IX, Issue 1: 

A Structured Preprocessor for MBASIC—A Simple Window Package—Forth to 
PC-DOS Interface—Sorted Diskette Directory Listing for the IBM PC—Emulate 
WordStar on TOPS-20—More on optimizing compilers—The PIP mystery device 
contest. 


#88 Volume IX, Issue 2: 

Telecommunications Issue: Micro to Mainframe Connection—Communications 
Protocols—Unix to Unix Network Utilities—VPC: A Virtual Personal Computer 
for Networks—PABX and the Personal Computer—BASIC Language Telecommu- 
nications Programming—U.S. Robotics S-100 Card Modem. 


#89 Volume IX, Issue 3: 

RSA: A Public Key Cryptography System, Part |—Introduction to PUC: Program- 
ming Language for Compilers—Program Design Using Pseudocode—More on 
Binary Magic Numbers—How fast is CP/M Plus?—CP/M 2.2 BIOS Function: 
SELDSK—The results of the Floating-Point benchmark. 


#90 Volume IX, Issue 4: 

Optimizing Strings in C—Expert Systems and the Weather—RSA: A Public Key 
Cryptography System, Part Il—Several items on CP/M Plus, CP/M v2.2 
Compatibility—BDOS Function 10: Vastly Improved—More on MS-DOS EXEC 
Function—Low-Level Input-Output in C. 


#91 Volume IX, Issue 5: 

Introduction to Modula-2 for Pascal Programmers—Converting Fig-Forth to 
Forth-83—Sixth Generation Computers—A New Library for Small-C—Solutions 
to Quirks in dBASE Il. 


#92 Volume IX, Issue 6: 

CP/M on the Commodore 64—dBASE Il Programming Techniques—First Chinese 
Forth: A Double-Headed Approach—cc-A Driver for a Small-C Programming 
System—A New Library for Small-C (Part Il)—Comments on Sixth Generation 
Computers—Review of Turbo Pascal. 


#93 Volume IX, Issue 7: 

RSX under CP/M Plus—p-A Small-C Preprocessor—A Simple Minimax 
Algorithm—Languages and Parentheses (A Suggestion for Forth-like 
Languages)—Comments on assembly language development packages, RSX to 
patch CP/M 2.2 with CP/M, iRMS-86 for the IBM PC, C Programming Tools. 


#94 Volume IX, Issue 8: . 
SCISTAR: Greek and Math Symbols with WordStar—A File Comparator for CP/M 
Plus—Designing a File Encryption System—A Small-C Concordance Generator. 


#95 Volume IX, Issue 9: 

Forth Special Issue!—File Maintenance in Forth—Forth and the Fast Fourier 
Transform—Computing with Streams—A Forth Native-Code Cross Compiler 
for the MC68000—The FVG Standard Floating-Point Extension—CP/M Plus: 
Interbank Memory Moves W/ithout DMA—ways to make C more powerful 
and flexible. 


#96 Volume IX, Issue 10: 

More dBASE II Programming Techniques—Simple Calculations with Complex 
Numbers—GREP. C: A Unix-like Generalized Regular Expression Parser—An opti- 
mization scheme for compilers, MSDOS 2.0 Filters, Sizing RAM under MSDOS, 
Two programming systems illustrating Runge-Kutta integration. 


#97 Volume IX, Issue 11: . 
Adding Primitive I/O Functions to muLISP—Program Monitor Package: Using In- 
terrupts to Instrument Applications—CP/M 2.2 Goes PUBlic—A Guide to Re- 
sources for the C Programmer—RESORT. 


#98 Volume IX, Issue 127. 
Varieties of Unix—Unix Device Drivers—A Unix Internals Bibliography—A file 
Browser Program—An Introduction to Parsing. 
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do serious work (for example, work 
done in one of our statistics groups). 
Certain low-volume applications may 
not have a low price tag (because of the 
$50 —$100 Run Time System license 
fee), but this may change. 

I find the most curious aspect of 
APL to be its marketing by STSC, IBM, 
and others. STSC seems to be following 
IBM’s lead... or non-lead. Although 
STSC runs occasional full-page ads in 





the computer rags, there is a minimum 
of second sourcing. For example, I 
have seen STSC APL*PLUS/PC of- 
fered from only two alternate vendors. 
One is a well-known programmers 
shop (at about a 16% discount), and 
the other is a vendor specializing in 
8087 chips and related software. Of 
course, IBM APL is never advertised in 
the usual computer rags and is never 
second sourced (I believe). Apparently 


Sof f ware Re vie Ws (Text begins on page 88) 


Listing One 


V ZeFBNCC 

esos ee 

[23] L82¢100>eZeZ, +/ “24Z)/1 
v 


Vv RENONFN 
Cij Red 
v 


Listing Two 


Vv PRIMES 


[4] OAIC2Z] > l¢1 > Fec8i9ieY),F 
C2] YiFCI+Pxvl¢ 8191-1) sPeit+i+l Jen 


[3] NiaFClel+4) 


C4) E:csy+.=F),' PRIMES’ 9 OAIC2) 


v 


Listing Three 


V ACFPBENCH;N;R 


a lot of work gets done at IBM in APL, 
but the marketing mavens believe in 
benign neglect for this product. Why 
STSC is not more vigorous in promot- 
ing its PC version will probably remain 
a mystery. The new Pocket APL may 
be an attempt to popularize their ex- 
cellent products; if so, time will tell. 


DDJ 


(More reviews on page 102) 


End Listing One 


End Listing Two 


C43 DAIC2Z] & AeN€1 O REC 24990L),E 
C2] Lthei+30 “30*0( AxA)*O.5 > *RINEN+1) 
£3] E:OAIC2I 
] 
Listing Four 
9 SSRtO4N TIMER S4£6;4471; 46T2; 44T3; 00T4 
fi] a Result 44R is the time in milliseconds to execute 44E S4N times. 
{2] m NULLEXP is the APL expression whose time is to be subtracted from 
[3] a the timing. It is typically 'S€O' if 46E begins with ‘S¢’. 
{4} OST2Z€( SONX1+ eNULLEXP) ONULLEXP,'¢O' $ S8T4€( SONX1+004E) OO4E, ‘9! 
[5] a OWA on next lines forces a garbage collection. 
[6] O4ReOWA > 44TI€OTS > 244T2 > 44T2¢0TS 
{7} S6ReDWA 6 44TSCOTS 6 24A4T4 O S4T4E0TS 
98 


End Listing Three 
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(8] s44Ti¢ 60 60 60 1000 1°4444T4 
[9] aaT2e 60 60 60 1000 1 °44440T2Z 
Fi0] 44T3€ 60 60 60 1000 1°44a4T3 
Ciij] 4aT4e 60 60 60 1000 1°4¢4aT4 
Ci2}] 44R¢(44T4-44T3) -a4T2-84Ti 
7 End Listing Four 
Listing Five 


90 PRINT TIMES: SUM=0O':sLS$="" 

100 OPEN "I", #1, "arnewaku. mss" 

105 OPEN "OQ", #2, "arsnewOak,. mss" 

=<O0 LINE INPUT#1, X$:IF EOF (1) THEN 3000 ELSE 201 

2eO1 IF X$=CHRS(13) THEN PRINT#2, X#:GOTO 200 

cO4 A=INSTR(XS, ":s $")2SIF A THEN 1000 ELSE PRINT #2, X% 

ZOOS REM: find name 

HOG N=INSTR(X$, ".R.") IF N GOTO 209 ELSE £90 

©O9 L=LEN(X$) —-(N+4) : RNS=RIGHTS$ (X$, L) 

eli L=1+LEN (RNS) -INSTR (RNS, CHR (77) ) sNAS=RIGHTS(RNS,L) GOTO Foo 
290 FRP=INSTR(X$, "Paymernt"):IF FR GOTO 315 ELSE FI=INSTR(X$, "/8") 
300 IF FI GOTO 301 ELSE 310 

301 R#E=RIGHTS (X%, LEN(X$) -27) :L$=MIDS(X$, 8, S)+STRSE (VAL (RS) ) 

302 SUM=SUM+VAL (R#) :LS$=LS$+L$+" ":GOTO 200 


(Continued on next page) 








SMALLG FOR IBM-PC 


Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 
New 8086 optimizations 
RICH I/O & Standard Library 





including 


SOURCE CODE 


Developing your own system? Or, just Curious 
about how things work? Either way, SOURCE CODE 
is Q must! 

KFORTH was developed for use in microproces- 
sor based controllers used by the U.S. Government. 
It includes CASE statements, a built-in assembler, 
and CPM file handling. Best of all, youcan change it 
to fit your needs. 

SUPER KFORTH was developed for increased 
speed. It uses DIRECT THREADED CODE and is up to 
CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 10x faster. Both are written in assembler and can be 
assembled using ASM.COM. Both generate reen- 
trant and ROMABLE code. 

(For use with Z80, 8080, 8085 CPM systems) 


FILL OUT COUPON TODAY AND MAIL TO: DJ 
KIMRICH COMPUTER DESIGNS, INC. 
10404 Patterson Avenue, Richmond, VA 23233 (804) 741-5930 
CL) YES! | want SOURCE CODE! Enclosed is my check for: 
1) SUPER KFORTH $79.95 








Break, Trace, and Change 
Variables all onthe 
source level 

Source code included 





<<] 

D /| (In VAadd $1.60 sales tax (4%)) (In VAadd $3.20 sales tax (4%)) 
My disk format is: (Call for availability of other formats) 

11557 8th Ave. N_E. 1) 8 inch SSSD CJ Osborne SD 0) Kaypro 

Seattle, Washington 98125 0 5-4/4 inch SSSD 1 Osborne DD i 

(206) 367-1803 For VISA or MasterCard orders phone (804)741-5930. 

ASM or MASM is required with compiler. Name 

Include disk size (160k/320k), and DOS version with order 

VISA & MasterCard accepted. Include card no. & expiration date. Address 

Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of International Business Machines City 


MS-DOS is a trademark of Microsoft Corporation. 





Circle no. 31 on reader service card. Circle no. 53 on reader service card. 
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Sof f Ware R e Vi eC@ws (Listing Continued, text begins on page 88) 
Listing Five 


310 A=INSTR(X$, "+)") SIF A THEN 311 ELSE 315 

311 BA=VAL (MID$(X$, Ate, S)) :SUM=SUM+BA:GOTO 200 

315 A=INSTR(X$, "-)") SIF A THEN 316 ELSE 200 

316 PA=VAL (MID$ (XS, Ate, 6) ) sSUM=SUM-PA 

317 IF (BA-PA) (=O! GOTO 200 ELSE PRINT#2, "***PAYMENT IN FULL IS REQUIRED EACH MO 
NTH ! #4" 

350 GOTO 200 

1900 REM write tatal now due ta invoice 

1005 YS=STRING$ (48, 32)+"Total Now Dues $" 

1010 PRINT#e, Y¢, SUM 

1050 SUM=O0O!':Lgo$="" 

10399 REM next bill 

1100 GOTO 200 

3000 CLOSE: PRINT TIMES End Listing Five 


pR 
8501 
BF 
1286 3413 5510 /672 
PR 
1345 3471 5569 7/728 
TND 
1534 3658 5/56 /913 
ALL 
769 838 894 2908 2977 5018 5074 7107 7176 7232 7301 7357 7426 7482 
CM 
25 25 25 35 30 50 65 45 45 45 45 65 65 45 
CSUMS : 
75 65 115 355 
Cer 
290 50 49 O 
CPR 
25 50 15 O 
CTND 
340 65 51 355 


Matrix A Matrix B Matrix C 

© ((pBF),eCM)pCM ALLo. <BF <\(ALLo. <BF) 
25 25 25 25 7117 1000 
25 25 25 25 111) 1000 
26 25 25 25 11.11 1000 
35 35 35 35 OFit O7100 
30 30 30 30 O11 | O7100 
50 50 50 50 OO] | O0O10 
65 65 65 65 O01} 0010 
45 45 45 45 000 1 000 i 
45 45 45 45 0O0C0G 7 OOO ] 
45 45 45 45 0 0 0-1 000 } 
45 45 45 45 000 | O00 } 
65 65 65 65 G00 1 O00 0 |} 
G00 4 000 1 
GOO} O00 }] 

+ 4+(<\(ALL®°.<BF))x@® ((pBF),oCM)pCM 
: 75 GS 115 355 
Figure 
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Listing Six 


VY PROCESS NAME: R; BF; PR; TND; ALL: A; CMs CSUMS; CBF: CPR: CTND; NP: MES 


CiJ) ODAlC2) 
C2] NAME ONTIE “1 0 REDNREAD “1 82 ,{ONSIZE “1),0 m TIE FILES AND READ INTO WS 
C3] BFeR FIND '+)' & PRER FIND '-)' 
[4] TND¢R FIND ': $' 
CS] = ALLECCRCAtIIJ=' 'DARCA-43=' ')/ACR FINDALL ‘igAu' 
C6] CMee,(CLEAN RCALL*.+ 28 29 30]),' ' m CLEAN REMOVES JUNK CONVERTS “¢2- 
C7} CSUMS€+4¢ C\CALL*. CBF) )x&(CoBF),0CM)0CM a SUM SESSIONS BY CLIENT 
C8] CBFee,( CLEAN RCBFe.+¢i+v3]),' ' > CPRe®,( CLEAN RCPRe.+4+13]),' ' 
C9] CTND€¢CSUMS+CBF-CPR 3 
C10] 9¢~Vv/NP€O CPR-CBF)/L O MESENP/PR © RIMES*.+54+145]€'ex*PAYMENT IN FULL IS REQUIRED EACH MONTH! xxx! 
C113 LiRCTNDe. t+2+14]€( 20( eTND) )e'M<->14' OFMT CTND 
Ci2] NAMEC4+2x+/NAMEE':'J]€'O' © NAME ONTIE “2 6 O ONRESIZE “2 6 R ONAPPEND “2 
C13} ONUNTIE ONNUMS 
C14] 'DONE!' 6 OAIC2I 
9 
VY Z€R FIND F 
C1] aSUBSTRING SEARCH OF R FOR F, GIVES LOCATION 
C2] ZeCR OSS F)/voeR 
9 


C4] 
(2) 


¥ Z¢R FINDALL § 


AFINDS ALL OCCURRANCES OF S IN R 
Ze( RES)/veER 


Vv 


(Continued on next page) 
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DEVELOPMENT HARDWARE/SOFTWARE 
HIGH PERFORMANCE,/ cost RATIO 











Model 7128-L1,L2,L2A . $239 .00 


Model 7128-24........ $329 .00 
Pe Or be de $ 30.00 
DR8PGX or DRSPGX ..$ 75.00 
Cross Assemblers ..... $200.00 


XASM (for MSDOS) .. . $250.00 






(60 | ) 467-8048 U/V Eraser DE-4....... $ 78.00 
RS7232 Cablessa os $ 30.00 
Syol-aaamter a. ed $174.00 
EPROM PROGRAMMER reais S88 
tam 48 Family adapter.... $ 98.00 
Compatible w/all Rs 232 serial interface port * Auto $879 stand alone 
select baud rate * With or without handshaking * MODEL 7956 Py, 
Bidirectional Xon/Xoff and CTS/DTR supported * @ ae : yy, 
Read pin compatible ROMS * No personality ; wit a $549 
modules * Intel, Motorola, MCS86, Hex formats * MODEL 
Split facility for 16 bit data paths * Read, program, 7228 
formatted list commands * Interrupt riven, 
program and verify real time while ge crest 
sending data * Program single byte, 
block, or whole EPROM ®* Intelligent 
diagnostics discern bad and erasable ” MODEL 7228 
EPROM * Verify erasure and compare MODEL 7956 memes’ : EPROM PROGRAMMER 
commands * Busy light * Complete GANG PROGRAMMER f All features of Model 7128 plus 


w/Textool zero insertion force socket 
and integral 120 VAC power (240 
VAC/SOHz available) 


DR Utility Package allows communica- 
tion with 7128, 7228, and 7956 
programmers from the CP/M com- 
mand line. Source Code is provided. 
PGX utility package allows the same 
thing, but will also allow you to specify 
a range of addresses to send to the 
programmer, Verify, set the Eprom 
type. 


MODEL 7316 PAL PROGRAMMER 
Programs all series 20 PALS. Software 





included for compiling PAL source 


Intelligent algorithm. 
copies eight EPROMS at a 
With RS-232 option $1099. 


MODEL 










Stand alone, “yyy, Auto Select Baud _, super fast adaptive 

* programming algorithms, low profile 
aluminum enclosure. Programs 2764 
in one minute! 


time. 














codes. 
; 1 2 
Software Available for CPM, ISIS, MODEL 7128 EPROM PROGRAMMER 
3 4 Avocet Cross Assemblers are Programs and Read: 
TRSDOS. MSDOS. available to handle 8748, 8751. $1195 
ar te. : 680X, etc. MODEL NMOS NMOS CMOS EEPROM MPU’S 
. ne # ele Tee Available" for” CP/M and 7324 ost Fish dele is 8748 
- ITM of Intel Corp. MSDOS computers. Order by 2516 2716 27C32 ~=-5213H 8748H 
3. TM of Tandy Corp. prnees sot type and specify 2532 2732 C6716. -X2816 8749H 
4. TM of Microsoft. era age aa wi 2564  2732A 27C54 48016 8741 
Model DE-4 U/V Products MODEL 7324 PAL PROGRAMMER 68766 2764 12816A 8742H 
Post Office Box 289 hold 8, 28 pin parts. High Programs all series 20 & 24 PALS. 68764 27128 8741H 
Waveland, Mississippi 39576 quality professional construc- Operates stand alone or via RS232. 8755 27256 8751 
[601]-467-8048 tion. $133 
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Software Reviews 
Listing Six 


9 ZECLEAN V;Q 


(Listing Continued, text begins on page 88) 


[1] REMOVES ANY STRAY CHARACTERS AND CONVERTS NEG. TO MINUS 
[2] Q¢,V > ZeQl(,~Qe' 0123456789+-~.')/reQle' ' 


C3] QéeCeVeMINUS Q 
{4] Ql(4/Qe' 
v 


9 ZEMINUS M:N: RM; NM 


')/viteV;je'do' > ZeQ 


C1] m CONVERTS “TO- OR -TO';NO EFFECT IF “- NOT PRESENT 


C2] NeeRMe,M 


C3] 32€0¢+/NME,ME'-')/L 9 9C0¢4+/NME, ME’ ')D/LL O ZEM O 40 


C4) LtRMCNM/vN)¢'"' 6 FE 


C5] LL:RMCNM/.vNJ¢'-' a DONT USE 'M<->...' OFMT CAUSE 
[6] E:Ze(eM)eRM m DONT KNOW FORMAT AHEAD OF TIME 


v 





VSI — Virtual Screen 
Interface, Version 2.09 
Company: Amber Systems, Inc., 
1171 S. Saratoga-Sunnyvale 
Rd., 
San Jose, CA 95129 
Computer: IBM PC and direct 
compatibles 
Circle Reader Service No. 131 
Reviewed by Ronald G.Parsons 


VSI is a programmer’s tool kit for 
building applications that manipulate 
the PC’s screen to take advantage of 
overlapping windows and features 
such as color and borders. The authors 
of the program liken VSI for screens to 
a file system for disks. Using VSI, ap- 
plication programmers need not be 
concerned with the details of the physi- 
cal screen, just as they are not con- 
cerned with the tracks and sectors of 
the disks they are writing on. VSI 
greatly facilitates the now common 
process of showing a menu on a pop-up 
window, prompting the user to make a 
selection with a pointing device such as 
a mouse or keyboard, erasing the 
menu, and prompting the user through 
the rest of the selection. 

Windows can be created, moved, en- 
larged and reduced, placed behind or in 
front of other windows, and closed with 
simple calls to the interface. Text can 
be placed into the windows, with auto- 
matic wrapping at the boundaries of the 
window, at the programmer’s option. 
Similarly, when the input cursor 
reaches the edge of the window, the 
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window will automatically scroll to 
keep the cursor in the window. The box 
around a window can be of any color, 
character, and attribute; this allows 
easy creation of “attention” windows 
for urgent messages. Windows are giv- 
en a priority: windows of higher priority 
appear in front of those of lower priori- 
ty. Best of all, the programmer does not 
need to bother with the details of all this 
screen action. Writing a program to do 
all this is very simple using VSI and pro- 
duces a fast window action. 

VSI supports both color and mono- 
chrome cards on the IBM PC, but not 
graphics. The VSI interface is in two 
levels: a level 0 interface to assembly 
language and a level | interface to 
high-level languages— Lattice C in the 
copy reviewed. Both interfaces provide 
similar functions because the level | 
interface is built on the level 0 inter- 
face. The C interface is especially easy 
to use: functions with parameters carry 
out the instructions on the screen. 

Additional functions available in- 
clude an exit reset function, several 
clear functions, a copy function, func- 
tions to read and write to a window, 
and many others. 

Up to 255 different screens may be 
defined with sizes from one-by-one to 
255 rows or columns. VSI can manage 
up to 65K of screen space. ANSI es- 
cape sequences may be used, and VSI 
will run under DOS 1.1 or 2.x. Diag- 
nostic trace capabilities are provided 
for debugging. A VSI exerciser (VSIX) 
program that interprets commands 


End Listings 


from a file can be used to demo the 
system or for help in understanding the 
VSI. Mice can be used as input devices 
to VSIX if they place cursor characters 
into the keyboard buffer. 


The VSI Distribution Kit 

As indicated earlier, the version of VSI 
reviewed included an assembly lan- 
guage interface and a C interface con- 
figured for Lattice C V1.03. Other in- 
terfaces are available for Pascal (IBM 
or Microsoft), Compiled BASIC 
(IBM), Fortran (IBM), PL/I (DRI), 
and COBOL (Realia); these cost $199 
each. All necessary object modules are 
included to assemble/compile and link 
a program. In addition, source mod- 
ules are supplied for the level 1 C inter- 
face, for assembly language routines to 
interface the C code, and for buffer as- 
signment. The source code for VSIX is 
also included. This program contains 
many good hints for writing VSI code. 
An assembly language interface for 
making VSI a resident program allows 
the VSI interface to be accessed 
through a software interrupt. 

A PC-size manual is provided, along 
with two reference cards for the level 0 
and | interfaces. The documentation is 
clear and concise. 


A Test of Portability 

As a test of the portability of the VSI 
interface, I converted the system to use 
the Computer Innovations (CI) C86 C 
V2.1 compiler rather than the Lattice C 
V2.0 compiler used in other parts of 
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this review. The C interface is supplied 
in a version tested with the Lattice C 
V1.03 compiler. Both the level 1 C in- 
terface code and the C-based exerciser 
are supplied in source form and were 
recompiled and linked with Lattice C 
V2.0 using the small model. No prob- 
lems were encountered. Then the C in- 
terface code was compiled using the 
small model of CI C86. Since the only 
linkage between the C code and the rest 
of the interface is through one function, 
which passes the function parameters to 
the VSI system (this function is imple- 
mented in assembly language), the as- 
sembly language interface had to be re- 
assembled. Because the assembly 
language interface is similar in Lattice 
C and CI C86, only the group and seg- 
ment names in the supplied source 
needed to be changed to conform to 
their respective conventions. Once these 
two steps were done, my test programs 
were compiled and linked with CI C86, 
and they worked as before except for 
differences in the two C’s I/O code. No 
changes were required in the VSI code. 
The steps were simple and took little 
time to complete. Thus, the VSI system 
appears to be quite portable among C 
compilers. 


Conclusion 

If you will be writing a windowing ap- 
plication, seriously consider VSI. It is 
_ fast, easy to use, and full of capabili- 
| ties, and it seems to be bug free. 


The Fancy Font System, 
Version 2.0 

Company: SoftCraft, Inc., 222 
State Street, Madison, WI 
53703 (606) 257-3300 

Price: $180 

Computer: CP/M, Apple CP/M, IBM 
PC, Osborne, Kaypro, Victor 
900, Epson QX-10 computers 
and Epson MX,FX, RX, Gemini 
10X, IBM Graphics Printer, 
Riteman Inforunner, TI 855/ 
850, or C. Itoh and NEC8023 
(IBM only) printers 

Circle Reader Service No. 133 

Reviewed by David D. Clark 


The Fancy Font System is a personal 
typesetting system for creating nicely 
printed documents using a_ personal 
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computer and a dot matrix printer. It 
uses the high-resolution graphics capa- 
bilities of popular printers to produce 
high quality printing. You can mix dif- 
ferent font styles, sizes, and special 
symbols in the same document. You 
can use the fonts supplied or create and 
customize your own alphabets and spe- 
cial symbols. 

The Fancy Font System can no long- 
er be considered a new product; you 
have surely seen the advertisements by 
now. I’ve had a copy for over a year. I 
originally bought version 1.7 of the 
system, and frankly it was a pain to 
use. It did produce beautiful print but 
only after a lot of work. The purpose of 
this article is to review the updated sys- 
tem. The new version 2.0 is a real im- 
provement. It is much easier to use, has 
lots of additional options and controls, 
includes improved documentation, and 
is available on more computers and 
printers. If you have an Epson FX-80 
printer, the news is even better: it pro- 
duces even higher quality print. 


System Contents 

What you get depends on the computer 
and printer you use. I have a CP/M 2.2- 
based system with an Epson FX-80 
printer. My update from version 1.7 
consisted of a new user manual, a quick 
reference card, and two disks contain- 
ing the font printing, editing, and creat- 
ing programs as well as a number of 
fonts and the Hershey character data 
base. Also included were files to auto- 
matically create some additional fonts 
that would not fit on the disks. 

Besides the standard fonts supplied 
with the system, SoftCraft is building a 
font library from which it will sell addi- 
tional fonts. They are actively soliciting 
users to submit any fonts that they may 
have developed themselves. The compa- 
ny also puts out a periodic newsletter 
informing users of new developments 
and tips on using the system. 


Documentation 
The user manual and quick reference 
card are excellent examples of some of 
the capabilities of the system: they 
were printed with Fancy Font. They 
are very pleasant to the eye, besides 
containing well-written documenta- 
tion for the system. 

The manual starts with an introduc- 
tion followed by three large sections, 
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Development 


PCDOS/MSDOS 


Complete C Compiler 

e Full C per K&R 

e Inline 8087 or Assembler Floating 
Point, Auto Select of 8087 

e Full 1Mb Addressing for Code or 
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Transcendental Functions 

ROMable Code 

Register Variables 

Supports Inline Assembler Code 
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c-window™ 


Symbolic Debugger 
Source Code Display 

e Variable Display & Alteration 
Using C Expressions 

e Automatic Commands 

¢ Multiple Breakpoints by Function 

& Line Number 


8088/8086 Assembler 
FAST — Up to 4 times Faster than 
IBM Assembler 
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one for each of the three programs, and 


a number of appendices. The docu- 


mentation follows the same format for 
each program. Each section starts with 
an introduction outlining the purpose 
and use of the program. After the gen- 
eralities are taken care of, the manual 
describes the commands in detail, de- 
voting one or more pages to each. The 
detailed descriptions consist of usage 
instructions, examples, and notes. De- 
pending on the command, there may 
also be sections on default values, legal 
values, errors, and suggestions. 

The appendices contain a glossary, 
font descriptions and samples, hints for 
using Fancy Font with word proces- 
sors, a summary of error messages, a 
description of the distribution files, a 
print-out of the Hershey data base, a 
description of data file formats, the 
ASCII character set, and a parameter 
and command summary. The quick 
reference card is keyed to the manual 
by page number; if the card doesn’t 
give you all the information you want, 
it is simple to look it up. 


Pfont 
Pfont, the printing program, is the pro- 
gram you will probably use most often. 
Before using Pfont, you must use your 
word processor or text editor to create a 
file containing embedded Pfont format- 
ting commands. Then you start Pfont 
and set up the printing parameters. 
There are 27 embedded formatting 
commands, usually with several varia- 
tions available for each one. They con- 
trol things like font selection, horizon- 
tal and vertical movement, 
underlining, justification, word wrap, 
indentation, paging, centering, and so 
on. In general, you use the formatting 
commands the same way you would in 
a powerful word processor. Pfont is 
more advanced than a typical word 
processor in some ways but more prim- 
itive in others. For example, how many 
word processors can you tell to switch 
from an 8-point font to a 40-point font 
or to move backwards up the page 2.63 
cm before printing the next line? On 
the other hand, it’s pretty tough to cre- 
ate a five-line page header with Pfont. 
Once you have prepared the text file 
containing the formatting commands, 
Pfont is executed to print the file. Be- 
fore printing begins, you have the op- 
portunity to enter a number of printing 
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parameters. About 30 printing param- 
eters control things like print quality 
(and speed), number of copies, line 
width, margins, first and last page to 
be printed, pause after each page, page 
length, and so on. You are required to 
enter only the names of the files to be 
printed and the names of the fonts to 
be used during printing; all of the other 
parameters have reasonable default 
values. The parameters can be entered 
interactively or retrieved from a pa- 
rameter file. 

Because of the relatively heavy use 
Pfont will receive relative to the other 
two programs, it has been constructed 
with a powerful user interface. You can 
obtain help with individual parameters 
and review the settings of all 
parameters. 

Once printing has started, another 
group of commands becomes active. 
These commands will immediately 
stop printing, skip to the next page, 
skip to the next file, pause after the 
current page, or allow the user to 
change the draft mode. 


Efont 

Efont is the font editing program. It can 
be used to alter existing fonts or to cre- 
ate new ones from scratch. Of the three 
programs, this one is probably the most 
difficult to use—not because of inher- 
ent problems in the program but be- 
cause the mechanics involved in editing 
a font can become quite involved. 

The fundamentals of the process in- 
volve loading a font, creating expanded 
versions of some characters in a group 
of ASCII text files, editing those files, 
replacing elements of a font with the 
edited version, and saving the altered 
font. It is also possible to create charac- 
ters from scratch by creating an ASCII 
text file of the proper type and using the 
“replace” command for an otherwise 
empty font file. Additional commands 
print characters, alter font information, 
move a character set up or down (to 
create super- and subscripts, for exam- 
ple), modify the margins for a set of 
characters, and so on. 

When a particular character or 
range of characters is to be edited, the 
program will create a series of ASCII 
text-files, one for each character, that 
contain a line of information about the 
character (the left and right margins 
and a value related to the height of the 


character) followed by the actual char- 
acter represented as asterisks. One as- 
terisk in the text file represents one pin 
strike in the finished character. To al- 
ter a character, you must exit the 
Efont program and use a text editor to 
add, delete, or move asterisks around 
and to make appropriate changes to 
the information line. When the 
changes are complete, the Efont pro- 
gram is entered again to read the al- 
tered text file and create an internal 
character representation from it. 

It is sometimes difficult to get a 
good feel for how the finished charac- 
ter will look: the aspect ratio of the text 
file is different than the aspect ratio in 
the printed character. By aspect ratio I 
mean the ratio of horizontal to vertical 
elements in a unit square. For exam- 
ple, when Pfont is used to print a char- 
acter on my printer, there are up to 240 
horizontal positions by 216 vertical po- 
sitions per square inch; 240/216 yields 
an aspect ratio of about 1.11. Howev- 
er, on my terminal that same square 
inch can have about nine horizontal el- 
ements and four vertical elements, giv- 
ing an aspect ratio of 2.25. Because of 
this difference in aspect ratios, the 
character in its text file representation 
always looks taller and thinner than it 
will look when printed. 

In practice, it is not difficult to make 
simple changes to only a few charac- 
ters. An example in the user manual 
runs through the process of adding a 
tilde to an n. It is a fairly simple pro- 
cess and well explained. As your edit- 
ing needs become more complex, it will 
be necessary to learn some technical 
aspects of the data representations and 
conventions used for character fonts. 
Most users, however, will probably 
never need to use this program. 


Cfont 

Cfont is used in conjunction with the 
Hershey character data base to create 
new fonts and special symbols. The 
Hershey data base was created by 
Alan V. Hershey for the National Bu- 
reau of Standards. Besides various 
styles and sizes of Roman alphabets, it 
contains old English styles, Greek al- 
phabets of different sizes, and even the 
Cyrillic (Russian) alphabet. There are 
also a number of special symbols and 
graphics from mathematics, music, 
and who knows where else. 
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Creating a font from the Hershey 
data base is well described in the man- 
ual and really very easy. It consists of 
creating a mapping between the num- 
ber of a character in the data base and 
a corresponding ASCII number. Then 
you supply (font with scale factors 
that determine the size of the font cre- 
ated and a baseline—almost always a 
seven for technical reasons explained 
in the manual. The process can be per- 
formed interactively, or you can create 
a file of mappings. Examples of both 
methods are provided. My disk came 
with map files and a submit file to 
automatically create three sizes each 
of a script font and an old English font. 


General Impressions 

With any complicated program, you 
can usually expect some problems. I 
found one, but I’m not sure about it. 
When I updated my system from ver- 
sion 1.7 to 2.0, a font conversion utility 
was providec to create fonts from my 
old fonts that would be compatible 
with the new version. The copy of the 
program I got didn’t work correctly 
when parameters were supplied from 
the command line. I bashed a couple of 
files this way before switching to the 
interactive mode. Then things worked 
fine. I don’t know if the problem was 
with the program or just with my copy, 
but since it worked correctly in the in- 
teractive mode, I didn’t bother to get a 
new copy from SoftCraft. 

The biggest drawback to Fancy Font 
is speed. Although it prints beautifully, 
it prints slowly. This isn’t really a prob- 
lem with the program, though; it’s a 
limitation of the printer. The program 
uses the graphics capabilities of the 
printer, driving it as fast as the printer 
can run. In the highest quality print 
_ mode on an F'X-80 printer, the program 
makes at least six passes over a line of 
text, usually more, depending on the 
| size of the letters. It can take quite a 
while to print out a page. Versions con- 
figured to the Toshiba 1350 or Epson 
LQ-1500 can print in one pass accord- 
ing to the manual and, I presume, 
would be faster. (Although the Toshiba 
and LQ-1500 printers are not men- 
tioned in the advertising, they are dis- 
cussed in the user manual. You should 
probably call SoftCraft to find out if 
versions for those printers are 
available. ) 
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Another difficulty on my system is 
the size of the font files. When Pfont 
prints a file, it loads as many fonts as it 
can into main memory and reads 
pieces of the rest from disk as it needs 
them. My 64K CP/M system usually 
has room to keep only one font in mem- 
ory. My disks, however, are fast 
enough to just about keep up with the 
printer when Pfont is reading font in- 
formation from the disk. On systems 
with slower disks, I have seen the print 
speed decrease dramatically. For 
printing rough drafts, the selection can 
be changed so that all of the informa- 
tion in a font file need not be read in. 
On IBM systems with larger memories 
or on systems that use a printer with 
lower resolution than the FX-80, this 
may not be a problem. 


This program produces very nice 


print, but in general it is not quite as 
good as that produced by a daisy-wheel 
printer. On my printer, the horizontal 
resolution is 240 dpi (dots per inch) 
with a vertical resolution of 216 dpi. 
Although human eyes have a resolu- 
tion of over 1000 dpi under favorable 
circumstances, ink on paper usually 
cannot be resolved that finely. On rela- 
tively rough paper, such as that used in 
computer printers as opposed to that 
used to print Scientific American, the 
highest resolution appears to be about 
400 — 500 dpi. Fancy Font approaches 
this resolution but can’t quite achieve 
it. This is most noticeable on light- 
weight diagonal strokes. On vertical 
and horizontal strokes, the printed im- 
age is perfect, as you might expect; the 
individual pin strikes cannot be dis- 
cerned. One method to overcome the 
resolution limits of the printer is to 
print the text larger than desired then 
reduce the image. The user manual, 
which was created this way, looks 
good. The justified, proportionally 
spaced output of the program looks 
better to my eye than that produced by 
most word processors with daisy-wheel 
printers. Using Fancy Font is also con- 
siderably more fun. 

In summary, the program produces 
good output and works reliably. Except 
for the glitch with the font conversion 
utility, I have never had a problem with 
the system. The new additions made to 
version 2.0 make the system considera- 
bly more flexible and easy to use. 

DDJ 


CUCUMBERINFORMATION SYSTEMS 
5611 Kraft Drive 
Rockville, MD 20852 
(301) 984-3539 (301) 881-2722 





2 SIRE 


A BREAKTHROUGH 
IN INFORMATION RETRIEVAL 


You no longer have to know exactly what you 
want 
to find what you need — 
Retrieve information by: 
® Natural Language 
®@ Heuristic Word Associations 
® Word Roots 
@ Like Documents 
@ Full Boolean Logic and Adjacency 
®@ Truncation and Wild Cards 
® Specific Fields 
And don’t overlook these features: 
© Up to 256 Fields Per Document 
© No Limits on Document or Field Lengths 
e Automatic Full-Text Indexing 
®@ Sort Documents on Any Field 
@ All Fields Variable Length 
@ Full-Screen Data Entry 


Add SIRE’s “ranked output” - documents 
ordered by their probable usefulness - and the 
result is the best retrieval system at ANY price 
on ANY computer. 


SIRE runs on the IBM PC, XT and AT, DEC 
PDP-11 and VAX, and other 16 and 32 bit 
computers running UNIX, MS-DOS and RSX. 


Order the SIRE Demonstration System and 
Manual (for IBM PC/XT) for $25 | 


For further details contact: 
Dave Harris 
Cucumber Information Systems 
5611 Kraft Drive 
Rockville, Maryland 20852 
(301) 984-3539 (301) 881-2722 


SIRE, MS-DOS, UNIX and VAX are trademarks 
of KNM, Inc. Microsoft, Bell Laboratories, and 
Digital Equipment Corporation, respectively. 
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CUCUMBER BOOKSHOP, INC. 
5611 KRAFT DRIVE 
ROCKVILLE, MARYLAND 20852 


The leading Unix & 
C Language Bookstore 
in the Nation 


Mail your order today 
or call 


Cucumber Bookshop 
(301) 881-2722 





FOR 
Your New 
UNIX* & C 
Book List 


*UNIX is a Trademark of AT&T Bell Labs. 
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The C Programming Tutor 
by Leon A. Wortman and 
Thomas O. Sidebottom 
Published by Robert J. Brady Co. 
274 pages, paperback 
Reviewed by lan Ashdown 


This is most decidedly not your aver- 
age book on the C programming lan- 
guage. While the authors follow the 
usual format of explaining the features 
of the language with examples, it is the 
examples that set this book apart from 
all others. 

Kernighan & Ritchie in The C Pro- 
gramming Language (Prentice-Hall) 
may have set the stage for The C Pro- 
gramming Tutor through their own 
examples. These included a fully func- 
tional word frequency utility using bi- 
nary trees and a very elegant demon- 
stration of recursion. Wortman and 
Sidebottom, however, have taken the 
concept of instructive examples one gi- 
ant step further by presenting nontrivi- 
al and useful programs to demonstrate 
C. They explain each feature of the 
language in the context of an overall 
program rather than as an isolated 
example. 

To be more specific, these programs 
include (in order of appearance and 
complexity) a simple calculator, a his- 
togram generation utility, a file encryp- 
tion program, a printer configuration 
utility, three text readability analyzers, 
a word frequency analyzer, a C pro- 
gram cross-reference listing utility, and 
a chart generator for C program func- 
tion calls. By the time the authors get 
around to presenting the function call 
chart generator, they have interspersed 
the text with some very complex C 
code. It is all explained in detail, howev- 
er, so that you can understand and 
learn from the listings as you key them 
into your computer. 

The book comprises two parts: “Tu- 
torial” and “‘Useful Programs.” The tu- 
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torial takes you by the hand through 
the usual programming examples to 
demonstrate the various features of the 
language—but with a firm emphasis on 
solving problems. Each example is stat- 
ed first as a problem with the solution 
blocked out in English-language state- 
ments. The following text then shows 
how you can implement these state- 
ments in C. Very much in the spirit of 
C, the authors use the resultant func- 
tions later for the solution of more com- 
plex problems. As more interesting fea- 
tures of C are discussed, many of the 
functions are progressively rewritten to 
include them. 

I should say here and now that I do 
not recommend The C Programming 
Tutor as a first and only guide to 
learning the C language. Learning how 
to program in C is not particularly 
easy, and the fast pace of this book is 
likely to leave the novice confused and 
frustrated. Learn C from a book like 
Jack Purdum’s C Programming Guide 
(Que Corp.) then use this book to pol- 
ish your skills. 

Since this book teaches C by way of 
programming examples, I also do not 
recommend it as a reference guide to 
the language. While most of C is de- 
scribed in detail, the information is 
subordinate to the programs. Unless 
you read the book from cover to cover, 
you will have a hard time trying to find 
specific information about some of C’s 
features. As an example, looking up 
“#define” tells you only that it is a 
compiler directive used for defining 
constants. You have to know already 
about its macro capabilities to realize 
that the index entry for “code macros 
— expanding the macro” is an impor- 
tant related topic. 

One nice touch is the ongoing dis- 
cussion of various C compilers, includ- 
ing both Unix and microcomputer im- 
plementations. While C is nominally 
‘“‘the’? transportable compiler, every 
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compiler writer seems to have his or 
her own ideas about compatibility. The 
authors frequently warn you that your 
particular compiler, especially micro- 
computer versions, may not support 
the feature currently under discussion. 
The chapter on strings, whimsically 
named “Things Called Strings,” pre- 
sents a bonus: complete implementa- 
tions of strlen, strcpy, strcat, strcmp, 
and index. A recent trend among the 
companies distributing C compilers is 
to sell the source code to the standard 
library functions at additional cost, if 
at all. This is most unfortunate, for this 
code is an invaluable resource when it 
comes to learning the language and 
writing variations of these functions. 
While there are many more functions 
in the standard library, the code pre- 
sented is nonetheless instructive. 
“Things Called Strings” also pre- 
sents the source code for a pattern- 
matching utility that finds a string in an 
ASCII file. While having nowhere near 
the power and flexibility of the Unix 
command grep, it is again instructive as 
a program example. With a bit of pro- 
gramming initiative, you could expand 
it into something quite useful. 
The next chapter, entitled “Paths And 
Pointers,” illustrates the interesting ap- 
proach the authors have taken to this of- 
ten confusing topic. The C Program- 
ming Tutor likens pointers to paths that 
lead to various places. Between this 
analogy and the illustrations, the mys- 
tery of pointers is clearly explained. 
The tutorial part of the book ends 
with the histogram generation utility, 
version 10. Part Two, “Useful Pro- 
grams,” is a bit of a misnomer, for it 
covers such essential C language fea- 
tures as the preprocessor’s macro Ca- 
pabilities (the preprocessor itself 1s 
never discussed), memory allocation, 
structures (in two pages!), initializa- 
tion, typedefs, and buffering. Other 
features such as separate compilation 
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of modules, storage classes, pointers to 
functions, external functions, unions, 
and bit fields are ignored altogether. 

If you know anything at all about C, 
you may think from the last statement 
that The C Programming Tutor is 
somewhat lacking as a tutorial on the 
language. The authors fully admit 
this—they did not intend for their 
book to cover every aspect of C. The 
purpose of The C Programming Tutor 
is to teach the reader how to program 
effectively in C, not to teach the lan- 
guage per se. 

Five major programs are presented, 
ranging from EPSET, a simple utility 
program for configuring software-pro- 
grammable dot matrix printers, to 
CALLS, which prints a chart of how 
functions in a C program call one an- 
other. (To be candid, CALLS is the 
reason I bought this book. It has prov- 
en useful as a debugging and documen- 
tation tool, well worth the price of the 
book in itself. ) 

Three versions of a text analysis pro- 
_ gram are given. One is an extended 
version of the Unix command we 
(word count) that counts the number 
of characters, words, lines, and sen- 
tences in a file. The second version ap- 
plies a definitive “readability” formula 
from Rudolf Flesch’s The Art of 
Readable Writing (Harper & Row) 
that uses the count of words, average 
sentence length, syllable count, names, 
and personal pronouns to determine 
the ease of reading and human interest 
content of a body of text. 

The third version uses the same for- 
mula but optimizes its performance by 
substituting a hash search method for 
the linear method used in the second 
version. The discussion on hashing is 
very instructive and produces some in- 
teresting code that can be adapted for 
use in many other programs. 

The next program is the word fre- 
quency analyzer WFREQ. While of 
some interest, this program is eclipsed 
by Kernighan & Ritchie’s version in 
The C Programming Language. The 
inherent sorting of words performed by 
their recursive transversal of a binary 
tree is far more interesting than the 
hash table entry and shell sort methods 
used here. (With the power of recur- 
sion available in C, Wortman and 
Sidebottom did not bother to discuss 
Quicksort .... Shame!) 
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XREF is a C program cross-reference 
listing utility that reads a file of C 
source code, adds line numbers, and 
makes an alphabetically sorted list of 
all the names (tokens) used in the file, 
along with a record of the line numbers 
associated with each name. Apart from 
its obvious usefulness in debugging and 
documenting other C programs, XREF 
affords the authors a chance to discuss 
such topics as linked lists and com- 
pound data structures. The code itself is 
quite complex but well documented. As 
with the text analysis programs, some 
of the developed functions are useful in 
their own right. 

Finally, there is CALLS. As stated 
earlier, this program is the reason I 
bought The C Programming Tutor. In 
operation, CALLS scans a C source 
code file looking for functions. When it 
finds one, it scans the body of the func- 
tion for calls made to other functions. 
When it has done this for all functions, 
a chart is printed showing the functions 
in their order of occurrence. Function 
calls are indicated by indenting the 
names, recursive functions are identi- 
fied, and repetitively called functions 
have their first occurrences referenced 
by line number. A key advantage of the 
call chart output is that it is a graphic 
display of the program structure. 

The book finishes with four appendi- 
ces. Appendix A discusses the various 
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C compilers available (as of July 1983) 
for CP/M-80, CP/M-86, and MSDOS. 
The information presented is interest- 
ing but was already out of date by the 
time the book was published. Only one 
thing remains constant in the world of 
microcomputer C compilers: they will 
all undergo continual improvement un- 
til they are fully compatible with their 
Unix brethren. 

The remaining three appendices dis- 
cuss the C header files ctype.h and 
math.h. The source code is given for 
ctype.h, which defines the character 
Classification and conversion functions 
(isascii, iscntrl, toascii, etc.) of C’s 
standard library. The source code is 
also given for math.h, but the tran- 
scendental functions are declared as 
“external.” The authors simply note 
that if a compiler supports float and 
double data types but does not provide 
mathematical functions, an experi- 
enced programmer can write them in 
C and declare them using math.h. 

Conclusion? If you program in C, 
buy this book for CALLS and XREF 
alone. The rest of the book will be of 
varying usefulness and interest to dif- 
ferent people, but most will learn and 
profit from reading it. 


DD] 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 
PCDOS version 3.0 


Along with the recently announced PC/ 
AT computer, IBM announced release 
3.0 of PCDOS. Together with a bad 
case of bloat (version 3.0 occupies some 
48 kilobytes of memory on a PC/AT 
with hard disk), the new release of 
PCDOS included a number of addition- 
al or modified function calls compared 
to version 2. Since the DOS Technical 
Manual is still a very scarce commod- 
ity, I will provide an overview of the sig- 
nificant changes in this month’s 
column. 

One of the most interesting features 
of the release of PCDOS 3.0 is the vir- 
tual disappearance of its originator, 
Microsoft, into the background noise. 
In fact, the word ‘Microsoft’ doesn’t 
appear at all in sign-on messages or the 
various DOS manuals, and can be 
found only in very small print on the 
diskette label. Although IBM never 
discusses its future product plans, still, 
if you were in charge of the Entry Sys- 
tems Division and you saw Bill Gates 
on television advertising the Macin- 
tosh, what would you be motivated to 
do? More on this subject later, but re- 
flect on the fact that TopView is a 
high-performance, windowing envi- 
ronment that completely hides PCDOS 
and has been earmarked as an IBM 
“Strategic Product,” and you may get 
an idea which way the wind is blowing. 

But back to the new software. The 
Critical Error Handler interrupt (Int 
24H) has been slightly modified, with 
the addition of some new status infor- 
mation passed in AH and a new DOS 
response upon return (the application 
can ask for the offending system call to 
be “failed” as well as just ignore, retry, 
or terminate the program). The docu- 
mentation on how to field the critical 
error interrupt, which was rather 
sketchy before, is still somewhat cryp- 
tic, but has been expanded to the point 
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of being comprehensible. 

Interrupt 2FH is new, and is essen- 
tially an interface between application 
software and the print spooler. A user 
program can add files to the print 
queue, cancel files, or examine the 
spooler’s list of waiting files. 

Under the general heading of Inter- 
rupt 21H (DOS function calls), the fol- 
lowing three functions were modified: 


Function 38H (Get or Set Country In- 
formation) was radically expand- 
ed: first, with the ability to set a 
country code as well as to interro- 
gate it; next, with the capacity for 
more than 255 country codes; and 
last, with much more information 
passed back in the data block re- 
garding country specific delimit- 
ers and formats. 

Function 3DH (Open File) was en- 
hanced to support both multi-task- 
ing and networking. When a file is 
opened, the application can speci- 
fy whether it will be “inherited” 
by a child process running in the 
same network node, and whether 
it can be “shared” (i.e. indepen- 
dently opened) by another task 
running in the same or another 
network node. 

Function 44H (I/O Device Control) 
has two new capabilities: to inter- 
rogate whether a particular block 
device has removable media, and 
to set the number of retries and the 
delay between retries for “‘file 
sharing conflicts.” 


There are also five completely new 
documented function calls for Inter- 
rupt 21H: 


Function 59H (Get Extended Error) 
can be called by an application af- 
ter an error code is returned by 
some other function to get more 
detailed information about the 








failure, the class of failure (tempo- 
rary, system internal, hardware, 
etc.), and the recommended re- 
sponse for the application (retry, 
delay and retry, abort, etc.) 

Function SAH (Create Temporary 
File) is passed a path string by the 
application, generates a unique 
filename string, creates the file in 
the specified subdirectory, and re- 
turns a complete path and file 
specification string. The file can 
then be opened by the application 
and used in any way desired. The 
file is not deleted automatically 
when the application terminates. 

Function 5BH (Create File) is exactly 
like the DOS 2.0 function 3CH 
(Create File), except that it will 

fail if the file already exists. Func- 
tion 3CH, on the other hand, trun- 
cates a previously existing file by 
the same name to zero length, then 
returns a success code. 

Function 5CH (Lock/Unlock File Ac- 
cess) provides a general mecha- 
nism for a task to gain exclusive ac- 
cess to a region of a file, even if the 
file is being shared with other 
tasks. 

Function 62H (Get Program Segment 
Prefix Address) is self-explana- 
tory. This will be handy for writers 
of EXE-type programs. 


With release 3.0 of PCDOS, it is in- 
deed clear that this operating system is 
going to continue to get more and more 
complex and powerful, even if it (or its 
descendent) is eventually completely 
submerged in TopView or some other 
IBM-proprietary shell. I suggest that 
the following guidelines for “well-be- 
haved” applications will make the pro- 
grammer’s life easier in the brave new 
world of multi-tasking and networking 
that is nigh upon us: 





e Use the Extended File functions 
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(3CH-42H) to open, close, read, and 
write files, rather than the old “FCB” 
type calls which were cloned from 
CP/M. The extended functions are 
more powerful, have better error re- 
porting, and support the hierarchical 
file structure and file sharing. 

e Use the Modify Allocated Memory 
Blocks call to release any memory that 
is not required by the application pro- 
gram. In the same vein, be sure to ex- 
amine the program segment prefix to 
find the amount of memory allocated 
to your application, and do not access 
memory outside those bounds (even if 
you can establish that more memory is 
physically present). 

¢ Don’t access the interrupt vectors di- 
rectly; use the DOS function calls 25H 
_ and 35H to set and get the contents of 
| Interrupt vectors respectively. This has 
implications for TopView as well as for 
the 80286 in the PC/AT, which can 
support multiple tables of interrupt 
vectors in protected mode. 

¢ When your program gets control, use 
function 30H to get the DOS function 
number. If your program is running 
under DOS 3.x, interrogate the extend- 
ed error codes (function 59H) when a 
DOS function fails to get more detailed 
information and the suggested action. 
In any case, employ the critical error 
handler interrupt capabilities to make 
your program more forgiving of hard- 
ware errors. 

¢ Use the Exec call to spawn other tasks 
or load overlays; don’t try to set up Pro- 
gram Segment Prefixes yourself. 

¢ Write directly to the video buffer if 
you must, but perform all mode 
changes through calls to the ROM 
BIOS. Cause all video code to access a 
variable that contains the buffer seg- 
ment address. This will make modifi- 
cation of a program for operation un- 
der TopView (where a ‘‘shadow 
buffer” is assigned) much simpler. 

¢ If writing to a standard device or a 
file, send strings rather than single 
characters whenever possible. Take 
advantage of the buffering and fast 
transfer logic written into the DOS 
drivers. Conversely, don’t waste your 
program’s resources on internal block- 
ing and deblocking of records or char- 
acters when the DOS is already impos- 
ing multiple layers of buffering 
between you and the device. 

¢ Before exiting the application, be 
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careful to close all file control blocks 
and/or handles. If regions of a file 
have been locked, unlock them before 
closing the file. 

e Terminate your program with a re- 
turn code via function 4CH of Inter- 
rupt 21H, rather than the previously 
accepted mechanism of function 0 or 
Int 20H. The return code can be inter- 
rogated by the invoking process or by 
the batch subcommands IF and 
ERRORLEVEL. 

¢ If writing a resident driver, use Inter- 
rupt 21H Function 31H to terminate 
and stay resident, rather than the pre- 
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viously approved Interrupt 27H. This 
allows for return information to be 
passed, and also for resident programs 
larger than 64 kilobytes. 
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oping in ‘C’. I wish to encourage the 
integration of graphics in software and 
I thought these two fast ‘nuts and 
bolts’ plotting routines were worth 
sharing with your readers. 

“Listing One (page 110) contains the 
two procedures to plot a point or draw a 
line on the medium resolution screen of 
the PC. The line drawing routine uses 
self-modifying code. They are both 
written to OR the color bits onto the 
screen. The line drawing routine is ap- 
proximately three times faster than the 
one listed in Morgan’s Bluebook of As- 
sembly Routines for the IBM PC. & 
XT. It is also three times faster than the 
line drawing routine used in the ROM 
Basic on the PCjr. The point plotting 
routine is a little more difficult to com- 
pare, because the overhead of the call 
and the computation for the next point 
become significant. In performance 
tests, it plotted points half again as fast 


as the routine in Morgan’s book, and in 
spite of the overhead, it performed four 
times faster than the ROM BIOS point 
plotting routines. 

“Listing Two (page 122) is a ‘C’ pro- 
gram which illustrates use of these rou- 
tines from a high level language.” In- 
terested readers can contact Bruce 
Smith at 305 E. Edgewood Blvd., Apt. 
5, Lansing, MI 48910. 

The line drawing routine sent by 
Mr. Smith employs Bresenham’s Al- 
gorithm, which is particularly well 
suited to microcomputer graphics rou- 
tines because it has a simple inner loop 
and uses only integer arithmetic. It 
was first published by J. E. Bresenham 
in the article “Algorithm for Comput- 
er Control of Digital Plotters,” /BM 
Systems Journal, 4 (1) 1965, pages 
25 — 30. 

Those of you delving into graphics 
on any microcomputer will find the fol- 


lowing two books to be invaluable: 


Fundamentals of Interactive Comput- 
er Graphics, by J. D. Foley and A. 
Van Dam, Addison-Wesley, 1982. 
This book is the standard by which 
all future graphics texts will be 
measured. Incidentally, it contains 
a nice explanation of the Bresen- 
ham algorithm on pages 433 — 436. 
on pages 433 — 436. 

Applied Concepts in Microcomputer 
Graphics, by Bruce A. Artwick 
(author of the IBM PC Flight Sim- 
ulator program), Prentice Hall, 
1984. No-nonsense, practical ad- 
vice from a guy who has done it all. 


DDJ 
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16-Bi f (Text begins on page 108) 
Listing One 


“orline.asm" 


=e ~=8 ™S BO TO BME WO BO WES 


Plot Point or Draw Line on IBM Color Graphics Adaptor 


“orpt.asm" 
written by Bruce A. Smith 7/24/84 
; naw eee eS See ae Bae e eee woes eo eee eee eee e wesw ooeoeooeseeee°eee2e2e-222.20ee=—_—_—_ 
; 
DGROUP GROUP DATA 
DATA SEGMENT WORD PUBLIC ‘'DATA' 
ASSUME DS:DGROUP 
PUBLIC. COLOR; X1-X2) V1,%2 


the order and 


=e Te BO 


type of declaration is important here 


(Continued on page 112) 


y2 dw g 
x2 dw g 
yl dw Gg 
xl dw g 
color db g 
; 
> color = color * 4 + 1, color @ == mask 
? 
ctableh db @3Fh,98CFh, GF3h,9FCh 
db 840h,910h,004h,8G1h 
db 880h,820h,8988h, 982h 
db 6CGh, 93Gh, 6OCh, GO3h 
; 
fakedw = 19@8@h 
; 
DATA ENDS 
7 
7 asa meaeaswmewreaam amram ewwm ewe we www ewe ew me ew eee ew ow eww ww Ow ww ww ww ew www ww ew we wee 
? 
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16-B1 f (Listing Continued, text begins on page 108) 


Listing One 
PGROUP GROUP PROG 
PROG SEGMENT BYTE PUBLIC 'PROG' 


PUBLIC ORLINE,ORPT 
ASSUME CS:PGROUP 


ROUTINE TO OR A LINE ONTO MEDIUM RESOLUTION SCREEN 


uses Bresenham's algorithm 


O we Se we we Me TO TO WS VO TO WO 


rline proc near 
push bp ; save calling bp 
> only reg needed to save for 'C' 
push ds ; save ds 
¢ 2----------------------------- 
; get x & y values 
mov si,OFFSET y2 ; addr y2 
lodsw > ax = <¥2 
xchg ax,dax ; ax = y2 
lodsw ; ax = x2 
xchg ax,di s Gi ew xZ 
lodsw ; ax = yl 
xchg ax,Cx * ex: #. vi 
lodsw ; ax = xl 
mov bx,si > bx = addr color 
xchg ax,Si ; si = xl 
a 
cmp si,di o> Gm Xi, a2 
jle swapxy - Skin TE: (Ri<S3x2) 
xchg ex,ax * (xl>x2): swap yl,y2 
xchg si,di ; swap xl1,x2 
swapxy: 
: 
; ee ae rs a rn ere oe ey ee we ee cr ae 
: | H | L | 
7 awaese we ee ee ww ew wee OO ww OB ww ewww ew eee ew ee eee Oe we ee 
; ax | | | 
@ ween nnn nnn 5 5 $= 
7; bx | addr color | 
¢ wan nnn 5 nn nnn 
oy aa | g | yl fae ( ee ae) 
Bm em swap (xl,yl) with 
; dx | ) | y2 | (x2,y2) 
Bm nnn ie. 
; si | x1 | xchg cx,dx 
Bm em xchg si,di 
ai | x2 | 
? ame e war wee ww OE MeO we ww www OOO OOO OO OO ww www ee ewe ee 
; bp | | 
9 ea---------- +--+ - - $$ = == 
a 
; ch = deldy = (yl>y2) ? -8@ : 88 
; dx = |y2-yl 
sub dx,cx ; y2-yl 
mov al, 8@ ; Geldy = 8@ 
jge ydown ; skip if (yl<=y2) 
neg dx ; |y2-yl| 
neg al ; deldy = -l 
ydown: 
sub di,si >; x2-xl 


(Continued on page 115) 
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PROGRAMMER’S DEVELOPMENT TOOLS 
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4.0 

ver the past year we at Programmer’s 
Connection have had the good fortune to meet 
and talk with hundreds of fellow programmers 
throughout the country. We want to extend our 
best wishes for a prosperous and productive 
New Year. And we invite you to call us for the 
software development tools you need in 1985. 


When you call Programmer’s Connection you 
will talk with an experienced programmer. Our 
people have many years of professional experi- 
ence encompassing the design, programming, 
documentation and support of software systems 
ranging from large mainframes to personal com- 
puters. Hence our motto, “Programmers Serving 
Programmers.” 


Our philosophy is to offer knowledgeable and 
dependable service at the lowest possible price. 
Compare our ad with the competition ... you'll 
see the difference. Call us today ... you'll hear 
the difference. 


Sincerely, 


Pn PRET? Cee Rh 


Michael P. Colarik 
President, 
Programmer’s Connection 


Best Wishes for 1985! 





C LANGUAGE: List Ours 
Computer Innovations C-86 ......... 395 309 
DeSmet C Compiler with Debugger . 159 145 
Lattice C Compiler................. 500 299 
Wee Ce la ea 450 409 


Xenix Development System by SCO .. 1350 1099 


*** Mark Williams C Compiler *** 


Sale Priced at $429 
This highly optimized compiler includes an 
extremely useful source-level debugger 
which can save you hours of programming 
time. A truly professional C development 
system with too many features to list. 


OTHER LANGUAGES: 


8088 Assembler w/Z-80 Translator 








PAE 57 ie BRN es wh we, Gea orn eS 100 89 
BetterBASIC by Summit Software Sale! 200 149 
Janus/ADA + Tools by R&R......... 700 499 
Modula-2/86 by Logitech ............ 495 439 


STSC APL*Plus/PC WeCan Support You! 595 499 


* Morgan Computing Professional BASIC 
New low price $89 


This structured BASIC semi-compiler with 
debugger supports large workspaces and 
many extensions. 8087 support $45. 





UTICHMES. 


CodeSmith-86 by VisualAge......... 145 129 
Communications Library by Greenleaf 160 139 
C1166 Dy Faireom. 2 ee 395 359 
C To dBase by Computer Innovations. 150 139 
C Utility Library by Essential Soft..... 149 129 
ESP for C by Bellesoft: .. . 2... 349 319 
FirsTime for C by Spruce Tech....... 295 269 
GraphiC from Scientific Endeavors... 195 169 
Greenleaf Functions Library ......... 175 159 
Halo Codlor Graphics a es 200 125 


Panel Screen Design/Editing by Roundhill 295 234 
Periscope Debugger by Data Base 


SPIN gs eles. tee Yee 295 269 
Phact by Phact Associates .......... 395 359 
Plink-86 Overlay Linkage Editor......... 395 310 
Pmate by Phoenix Software ......... 225° 175 
Profiler by DWB & Associates ....... 125 99 


Screen Sculptor by Software Bottling. 125 109 
Windows For C by Creative Solutions. 195 159 
2D 0D 6 DD PE ED OA © EY ORE OR OES OED 
*** Scroll & Recall *** 
$49 
Save $20 on this DOS-resident Screen and 
Keyboard utility. S & R allows you to 
recall text that has scrolled off the screen. 
You can also recall and edit all of your 
previously entered DOS commands. 









Prices are subject to change without notice. 
Call for our New Catalog consisting of 
200 + Programmer’s Development Tools 
Exclusively for IBM PC’s and Compatibles. 


Account is charged when order is shipped. 





= 1-800-336-1166 SO 


7 Programmer’s Connection 


136 Sunnyside Street 


% g Hartville, Ohio 44632 (216) 877-3781 (In Ohio) 
‘Programmers Serving Programmers 
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Every 1982 Issue Available For Your Personal Reference. 


V0) Bay A bf = 74 


In 1982 we introduced several significant pieces of software, including the RED text editor and the Runic extensible compiler, 
and we continued to publish utility programs and useful algorithms. Two new columns, The cpim Exchange and The 16-Bit 
Software Toolbox, were launched, and we devoted special issues to FORTH and telecommunications. Resident Intern Dave 
Cortesi supplied a year of “Clinic” columns while delivering his famous review of JrT Pascal and writing the first serious 
technical comparison of CP/M-86 and msDos. This was also the year we began looking forward to today’s generation of 


microprocessors and operating systems, publishing software for the Motorola 68000 and the Zilog Z8000 as 


all as Unix 


code. And in December, we looked beyond, in the provocative essay, “Fifth-generation Computers.” 





Vol. 1 1976 


The material brought together in this volume chronicles the development in 
1976 of Tiny BASIC as an alternative to the “finger blistering,” front-panel, 
machine-language programming which was then the only way to do things. 
This is always pertinent for bit crunching and byte saving, language design 
theory, home-brew computer construction and the technical history of 
personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, Speech Synthesis, 
Floating Point Routines, Timer Routines, Building an IMSAI, and more. 


Vol. 2 1977 


1977 found DD4J still on the forefront. These issues offer refinements of Tiny 
BASIC, plus then state-of-the-art utilities, the advent of PILOT for microcompu- 
ters and a great deal of material centering around the Intel 8080, including a 
complete operating system. Products just becoming available for reviews 
were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermore Lab’s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Interaction, I/O, Tiny Pilot & Turtle Graphics, 
many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered its adolescence in 1978. This volume 
brings together the issues which began dealing with the 6502, with mass- 
market ‘machines and languages to match. The authors began speaking more 
in terms of technique, rather than of specific implementations; because of this, 
they were able to continue laying the groundwork industry would follow. 
These articles relate very closely to what is generally available today. 
Languages covered in depth were SAM76, Pilot, Pascal, and Lisp, in addition to 
RAM Testers, S-100 Bus Standard Proposal, Disassemblers, Editors, and much, 
much more. 


Vol. 4 1979 


This volume heralds a wider interest in telecommunications, in algorithms, 
and in faster, more powerful utilities and languages. Innovation is still present 
in every page, and more attention is paid to the best ways to use the proces- 
sors which have proven longevity—primarily the 8080/Z80, 6502, and 6800. 
The subject matter is invaluable both as a learning tool and as a frequent 
source of reference. 

Main subjects include: Programming Problems/Solutions, Pascal, Information 
Network Proposal, Floating Point Arithmetic, 8-bit to 16-bit Conversion, 
Pseudo-random Sequences, and Interfacing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 1980 in one volume! Systems software 
reached a new level with the advent of CP/M, chronicled herein by Gary 
Kildall and others (DDJ's all-CP/M issue sold out within weeks of publication). 
Software portability became a topic of greater import, and D)DJ published Ron 
Cain’s immediately famous Small-C compiler—reprinted here in full! 
Contents include: The Evolution of CP/M, a CP/M-Flavored C Inerpreter, Ron 
Cain’s C Compiler for the 8080, Further with Tiny BASIC, a Syntax-Oriented 
Compiler Writing Language, CP/M to UCSD Pascal File Conversion, Run-time 
Library for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue (now sold out), along with continuing cover- 
age of CP/M, small-C, telecommunications, and new languages. Dave Cortesi 
opened “Dr. Dobb's Clinic” in 1981, beginning one of the magazine's most 
popular features. 

Highlights: information on PCNET, the Conference Tree, and The Electric Phone 
Book, writing your own compiler, a systems programming language, and Tiny 
BASIC for the 6809. 


YES! 1) Please send me the following Volumes of Dr. Dobb‘s Journal. 


This offer expires February 28, 1985 


= (€) ALL7 for ONLY $165, a savings of over 15%! Wor Foe $26.95 = mae 
Vol. 2 x $27.75 = ies 
Payment must accompany your order. Vol. 3 x $27.75 = 
Please charge my: L) Visa L] MasterCard _} American Express Vol. 4 x $27.75 = pies 
lenclose ( Checkimoney order Vol. 5 Rc hes 19 = 
Vol. 6 x - $2775 = sie 
Card # Expiration Date Vol. 7 x $30.75 = ae 
All 7 x $165.00 = ne 
Signature 
Sub-total $ a 
PR a TESS Postage & Handling Ce 
City tis Zip Must be included with order. 


Mail to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 


Allow 6-9 weeks for delivery. 


Circle no. 82 on reader service card. 


Please add $1.25 per book in U.S. 
($3.25 each surface mail 

outside U.S. Foreign Airmail 

rates available on request.) 


TOTAL $ 


99 


16-B1 f (Listing Continued, text begins on page 108) 
Listing One 


? @eeeoeseetoetooeoeo@eeseeespeeseeseesvseeeeeeeeneenemeseseneeeeeseee 
; H | L | 
: ax | | (yl>y2)? -88: 86 | 


al=8@ 
dx-cx = y2-yl 


if neg (yl>y2) 


i; bx | addr color | neg dx =|y2-yl| 
Pr al=-89@ 
; cx | Y | yl | 
poe nnn nn ee ee eee deldy = al 
; ax | g | absdy = |y2-yl| | 
? << eo oe oe oe ow oe © ow © oe oe oe oe om om oe oe we oe om ee oe oe oe oe oe es oe ow ow os om me om oe ow os os 
; si | x] | 
Pre di-si 
Bi Gi;..| absdx = x2-xl | = | x2ex1 | 
? — ee oe oe oe oe © © © oo oO @ © wo we ow oe ow oe Oo oe oe oe oe oe oe om ow oe om oe oe oe oe oe oe ow os os os 
; bp | | 
? — oe oe oe oe oo @& oe Om oe © Om om ow oe oe oe oe oe ow oe om oe oe om om ow om oe om oe oe oe es ow es we ee oe 
i 
; 
cmp di,dx ; absdx,absdy 
lahf 
jnl minmax ; skip if (absdx>=absdy) 
xchg di,dax 
minmax: 
; ax = admin 
>; di = dmax 
’ 
? eoeeeeoeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeese eee 
| H | c | if (absdx < absdy) 
Pr - - - - ++ cmp di,dx lahf 
; ax | flags absdx, absdy | deldy Le 2n2...= 
Fn en Swap (absdx,absdy) 
7; bx | addr color | xchg di,dx 
Fr +--+ ++ -: 
; cx | y | yl | 
? =——_— oe ee ee ee ee ee we © ee eo ee oe ee we ee we ws we we ww oe we ee oe ee 
; ax | g | dmin | 
. —— oe oe ee oe oe © oe oe ow oe oe oe oe © oe oe ow oe oe oe oe we oe we oe oe os ws ees oe es ee aw we 
; si | x1 | 
? _— ee Oe oe oe ee we oe oe oe oe oe oe oe we ee ws we ow ws oe oe es 
Pala & | dmax | 
? —— ee we we we we oe oe we we we om oe we ow oe oe we es we we es we we ee a es es a 
; bp | | 
? —— ee ee ew we © oe oe we ee oe oe oe om oe om oe we oe oe oe ee oe we es we ee a a es es ee es 
; 
; 
xchg ax,bp ; bp=flags(absdx,absdy) & deldy 


me we Te BO 


ror el,t ; adjust odd/even 

mov ax,cx ; ax = cx = 

and al, 7Fh ; Page mask 

sal ex sa ; times 2 

sal ez.t ; times 4 

add cx,ax ; y-coord times 5 

sal ex,1 ; times 190 

sal ox;s ; times 2@ 

sal rap ae | ; times 4@ 

sal og id 3 ; times 8@ 
; 
; beats 6.6.0 w 6 pe ete atee ere wigs a Wa gia a eld oe Bou) plea le 
; | H | L | 
Osea oni ole at el me sce “niall ni ih Ss moo in sid lp ce 
; ax | : | | 


= 
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ROUTINE TO FIND INITIAL Y-ADDR, X-ADDR, AND ROTATED COLOR 
multiply y-coord by bytes per row and adjust for even/odd lines 


adj y-coord 


(Continued on next page) 
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16-Bi f (Listing Continued, text begins on page 108) 


Listing One 

>; bx | addr color = addr ctableh-l | 
ae ee Sie BCR See ae 
ide Oo a eee mie 
iiad Woke Re eee ee 
PME Sa ent oe ae Oe eae 
up fi flage abedxjabadyl ade | 


=e =e Se Be TO 


compute the rotated mask and color 
bx = ctableh-1l = addr color 


mMOv aks 3 ; pixel position mask 
and ax,Si ; just the bit count into the index 
add al, [bx] ; pixel position + color (* 4 + 1) 
xlat > look up the masks al=[al+bx] 

? 
mov bx, SB89GH ; disp seg base addr 
mov ds,bx * ds = display base addr 

; 

s al = rotated color 

* ex = y-addr offset 

; ds = display addr 

; 

7 eceoeoeceeoeneneeeeeoeeoeoeoeee eee ereeweew ee eee eee e eee ee © 

; | H | Z | 

7 awww ae awe wwe www ewe ew ew Owe ww eO@ eee ewe were or oer oeroneeneensenreene ee 

; ax | ) | rotated color | 

7 aae eae ww wee ee ew www ww Oe Ow ewer www ww eC ew eww eww oeroeoreererereem 

; bx | | | 

? wae eaeeweemw ewe wm em ewe we ww eww ew OO Ow ew ew www wow w wr ereeneeeneees 

ex. | y-addr | 

; aaa amwra wee weer awww we OE OO ee we we ew ew we we eww e eww oeewenreeneesee 

eb ae ) | dmin | 

7 axe awa ae aww ewe eww eww eww ww Owe OO OO Ow www ww ewer ororeersese--- 

7 si J et | 

7 anew aewmw awww wees see ewe ew wwe ew ee eee ew ew Oe www ewer orewrorenrneen oo 

7 ai dma x | 

7 oa ae enw aw awww eww ewe wwe ewe we wee eee ewe ee were eereeneerneo-- 

; bp | flags absdx ,absdy | deldy | 

7 eae ew aE EEO EDEN OOOO OOOO Ow OO ee eee wee eww eweeoeeeenees 

’ 

sal dx,1 ; dx = delse = dmin * 2 
xchg cx,di > cx = dmax, di = y-addr 
xchg ax ,dx > ax=delse, dx=rotated color 

: xchg ax,bp > ax=flags(absdx,absdy), bp=delse 

e 

? eceoeonveeneen2e02e2e2eee020202802020202809020280280808028088088080808808080808080828808 0 

| H | Z | 

7 aaa awww rae wre we ewes wee wwe we SO Or OB ee SO See wwe ewe wee 

; ax | flags absdx,absdy| deldy | 

? exe eee ee we we ne ee we ee we we we we we we we wn we a a a ww ww ww ww wr www ws seer sese=snr nm 

; bx | | | 

; awa eeera ewe ew eww BB Oe OE OO OO OO Owe OOOO Oe ww ewe ew ewe ewe eo 

7 OK? dmax | 

? ei 

; ax | g | rotated color | 

? ae cee ae ee OO OS OS a EEE SOOT TOTO TO SO SO SO SO OOOO SOOO w ee Oe SOO ee 

t 3 x1 | 

7 aa eee eee eww eee wee ew OOO OOO Oe Ow Oe we Ow oO ew Ow Oe Oe ew ee wee 

5 ate] y-addr | 

? eis 

; bp | admin * 2 = delse | 

; ase ee em eee wwe ew wm mw ew ew wwe ewww wee ew omr ew ee oererere2°°*-r-*”e22--~-—™ 
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=e Se 


sahf ; cmp absdx,absdy 
pushf 
; 
cbw ; ax = deldy 
mov cs:delsy,ax ; save deldy 
mov cs:deldy,ax 
mov cs:deldy2,ax 
mov bx,di ; bx = y-addr 
or ax,ax 
js negdeldy + if deldy<@ jmp 
; 
test bh, 20H ; is page bit set? 
+2 toggle ; skip to toggle page 
; 
add bx,ax ; add deldy to y-addr 
jmp toggle ; skip to toggle page 
negdeldy: 
test bh, 26H ; 1S page bit set? 
jnz toggle ; Skip to toggle page 
; 
add bx,ax ; add deldy to y-addr 
toggle: 
XOX bh, 26H ; flip page bit 
; bx = next y-addr 
: 
? ae MOBS SS 0-0.) 8°66 0 E86 6.6 6:6 OE ES, 6.410 6 00 0.6 6 6 0.6 6 de 65% 
ae H | L | 
; oa om ae ae ae oe ee ee we ee we ee we we we we we ws we we we es ew ee 
; ax | | | 
7; = ——— on ae ae ae ee ae oe ee ae oe oe me ee oe oe we ee om we we we we oe we we we we es we we oe ae oe a ee 
; bx | y-addr (next) | 
7 OE AS ED AD SS aS EE OS AP OD OD ED SS GD an SP Om Oe OS am OP Oe om ee Oe Oe 0 OD 9m oe os 0s om oe es ec 
; cx | dmax | 
? Ee ee OOO OSS OOO S222 eee ewe wee ee mew wewoam moo oaawe 
; ax | g | rotated color | 
Fn a a nn wn wo ww nw en eee 
. si | xl | 
; —_— OOO OOS OOO Oe SO eee eee eee @ee eww ee woe wee oe ee 
; di | y-addr | 
7 ee IP DAE OMS OOOO SSS SPS SeBDaeneenas ee aw aaa a aww 
; bp | dmin * 2 = delse | 
? ee ne RPO OOOO POPE OOOO Oe OOOO eww wow ee wee oe 
; 
; 
xchg ax,bp ; ax = dmin * 2 = delse 
mov cs:delse,ax ; Save delse 
mov cs:delse2,ax ; Save delse 
sub ax,cCx ; ax = dmin * 2 = dmax 
mov bp,ax ; bp d = error term 
sub ax,Cx ,; ax = Gdmin * 2 —- dmax 
mov cs:delde,ax ; Save delde 
mov cs:delde2,ax 7; Save delde 
; 
xchg ax,bx 7; ax = next y-addr 


figure x-coord address 


mov bx,si ; get x-coordinate 

sar bx., 2 ; divide 

sar Bk, 4 ; by 4 
; bx = x-addr offset 
’ 
; eooeeeeeeeeeeeoseeeeeeeee ee eeeee eee eee eeneee ees 
ee H | L | 
? —_—— ee ee ee ee ee ee we we we oe oe oe we we we we ws ws we we we we ow we we es ee 
; ax | y-addr (next) | 
; —_—— ew we we 0 ee we oe we ew ee es oe wm we wm we es ow ee se ee es 
+ bx | x-addr | 
: cx | loop count | 


ey 


(Continued on next page) 
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PROFESSIONAL 


BASIC 


JUST BECAME AFFORDABLE 


$99 


“outstanding” Ray Duncan- Dr. Dobbs’ Journal 


Use 640k (e.g. 250 x 250 array) 
Dynamic Syntax Checking 

19 Debugging Windows 

Run PC BASICA Programs 


OPTIONAL: 8087/80287 Support — $50 


= Morgan Computing Co., Inc. 
(214) 739-5895 
10400 N. Central Expwy., Suite 210 
Dallas, TX 75231 





Circle no. 51 on reader service card. 


NOW C HERE! 


CROSS SOFTWARE 
for the NS32000 


Also Available for IBM PC 
INCLUDES: 


* Cross Assembler * 
* Cross Linker * 
* Debugger * 
* N.S. ISE Support « 
* Librarian * 
* Pascal Cross Compiler « 
* C Cross Compiler * 


U.S. prices start at S500 


SOLUTIONWARE 


1283 Mt. View-Alviso Rd. 
Suite B 
Sunnyvale, Calif. 94089 
408/745-7818 « TLX 4994264 





Circle no. 96 on reader service card. 


ICs 


8087-3 Co-Processors 
DYNAMIC RAM 
256Kx1 150 ns 
64Kx1 120 ns 
64Kx1 150 ns 
64Kx1 200 ns 

EPROM 
32Kx8 300 ns 
16Kx8 250 ns 
8Kx8 200 ns 
8Kx8 250 ns 
2732A 4Kx8 250 ns 
2716 2Kx8 450 ns 
STATIC RAM 

6264P-15 skxs 150 ns 
6116P-3 2Kx8 150 ns 


Open 6’ days: 
MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts 

MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave. (91 8) 267- 4961 


BEGGS, OK. 74421 


Prices shown above are for November 26, 1984 
eae pecunere wh oy & volume discount. Prices subject to change. cage 9 rai 
sh stout pices shown. Sinall orde's rowed by 6PM ts. Shipping 
aaetes extra. Cash discount prices shown. Small orders received by 6 PM CST can eh 
be delivered to you by the next morning, via Federal Express Alr @ $6.75! 


* 2 PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


$131.97 


256K 
64K 
64K 
64K 


$17.47 
3.77 
2.97 
3.07 


27256 
27128 
27C64 
2764 


$37.50 
13.57 
12.47 
6.50 
6.37 
3.31 


$19.57 
4.37 


We can ship via Fed-Ex on Sat. 


QUANTITY ONE PRICES SHOWN 


iP eo 





Circle no. 64 on reader service card. 
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16-Bi f (Listing Continued, text begins on page 108) 


Listing One 
s ax | 

, 

Haey | | 

oe <p! | 

; 

+ bp | 

popf 

jns 


rotated color | 


cmp absdx,absdy 
if (absdx>=absdy) goto delsx2 


s 
3; delsx = @g 
? 


or 
jJCxz 
or 
Jge 


(TD we swe 


traight: 
xchg 

delsy 

add 


=e 


or 
dec 


jz 


add 
js 


e 
s 
e 
f 


diagonal: 
inc 
mov 
sar 
sar 


=e 


ror 
ror 


=e 


xchg 
deldy = 
add 


=e 


or 
dec 


jz 
add 


js 
jmp 


jge 


bt) 


= $+1 


- $+2 


$+1 


= $+2 


(absdx < absdy) 


[bx] [di] ,dl 
lineexit 
bp,bp. 
diagonal 


case for straight move 


ax,di 
ax,fakedw 
[bx] [di] ,dl 


cx 
lineexit 


bp, fakedw 
straight 


case for diagonal move 


si 

bx,si 
bx, 1 
bx, 1 


dl,l 
dl,l 


ax,di 
ax,fakedw 
[bx] [di] ,dl 


cx 
lineexit 


bp, fakedw 
straight 
diagonal 


(absdx >= absdy) 


[bx] [di] ,dl 
lineexit 
bp, bp 
diagonal2 


=e =e Se WE 


=e 


=e 


=e =O ™=e =e SO 


=e =e 


=e 


=e 


=e 


™=e 


=e se TO 


=e =O se “EO 


or disp with color (plot point) 
quit when cx=@ 

set bp flags 

if bp>=8 jmp 


every other for page adj 
++y 


or disp-with color (plot point) 
--loop counter 
quit when cx=@ 


update error term 
if bp<@ goto straight 


++x value 
bx = x value 


bx = x addr offset 


adjust color position 


every other for page adj 
++y 


or disp with color (plot point) 
--loop counter 
quit when cx=9@ 


update error term 
if bp<@ goto straight 
if bp>=@8 goto diagonal 


or disp with color (plot point) 
quit when cx=6@ 

set bp flags 

if bp>=8 jmp 


(Continued on page | 20) 


Dr. Dobb’s Journal, January 1985 


Thanks to YOU . We're Growing . 


with YOU and your Computer . 


LEO ELECTRONICS, INC. 
P.O. Box 11307 

Torrance, CA. 90510-1307 

Tel: 213/212-6133 800/421-9565 
TLX: 291 985 LEO UR 


We Offer . . . PRICE QUALITY 





PERSONAL SERVICE 





64K UPGRADE 


9 Bank (IBM PC) $43.65 (150ns) 

$41.85 (200ns) - 

4164 (150ns) $4.85 ea. | 
(200ns) $4.65 ea. 

8 Bank (other PC) $38.80 (150ns) 

$37.20 (200ns) 


4164 (150ns) $4.85 ea. 
(200ns) $4.65 ea 
256K ‘‘Mother-Saver’’ Upgrade 
256K - (150ns) $36.00 ea 
6116P-3  -— $4.40 2732 — $3.95 
2716 — $3.20 2764 — $7.00 
TMS-2716 — $4.95 27128 — $24.00 


We accept checks, Visa, Mastercard or Purchase Orders 
from qualified firms and institutions. U.S. Funds only. 
OF] | Ii co] am Om Om DMN Or-1 11 Zo) dal c-3[0(-1,} CHMETs(sB oW AV AER TS 


Shipping is UPS. Add $2.00 for ground and $5.00 for 
air. All major manufacturers. All parts 100% guaranteed. 
Pricing subject to change without notice. 





Circle no. 59 on reader service card. 


VANCE info systems is pleased to announce 
THE MOST COMPLETE C FUNCTION LIBRARY AVAILABLE TO DATE! 


¢lib 


C FUNCTION LIBRARY 








“Celib” is the most functional library available for software written in C, providing 
over 200 routines, extending the capabilities of C on the IBM PC. The library is 
available under the DeSmet (C Ware) C88 compiler, will be available in MicroSoft 
C, Lattice C and other C compilers, and runs using MS Dos 1.1] and later versions. 


Routines are included to handle: 
e System Gate & time |/O e String & numeric sorting 
e Date & time math functions e Trigonometric & hyperbolic 
e Extended screen & keyboard |/O functions 
e String & bit-field manipulation e Asynchronous Communications 
e Degrees/radians conversions functions 


e And contains dozens of functions compatible with Xenix and Unix. 


“Celib” features a unique windowing library transportable with Xenix function calls. 


“Celi” also includes functions to convert floating point numbers from MicroSoft to 8O87 
NDP format and vice versa 


Documentation is offered in an easy to use printed manual or on disk for your Own printing 
needs, complete with programming examples and follow-up demo programs. 


The “Celib C FUNCTION LIBRARY is offered at only $145, less than most available today 


For further information on “Celib” please contact us at. 


VANCE info systems 


2818 clay street ¢ san francisco, california 94115 © (415) 922-6539 


BM $s 2 aderure 9 herr or Buses Sh es 
BB sat nie mun * ple en eters 6 
DAP CERIO Ia 2 @ 
teres Vic tow”? uy Ves can see "o> Seer? ote 
as.3 *jJevuE 1° Se: 2 bs 7% 
& sowgerue. § AW: 


Circle no. 106 on reader service card. 


100% FLAWLESS 
COPIES 


- « « FAST! 


No need to tie up your valuable computer to duplicate 
diskettes .. . when VICTORY can provide you with a 
duplicator that will do the job flawlessly, and much 
faster. One button operation automatically formats, 
duplicates and verifies up to 8 diskette copies at the 
same time. 


VICTORY can supply you with literally dozens of 
standardized formats to match the peopeat of oe 


any current computer. In addi- 
tion, built-in utilities enable 
you to read or devise any for- 
mat you may require. If that’s 
not enough, VICTORY can 
help you with unusual or 
unique formatting, serializing 
or copy-protecting problems. 


VICTORY duplicators are 
designed to be reliable. Each 
of the copy drives has a 
separate controller to increase 
copying throughput and 
ensure Maximum uptime. 
VICTORY Duplicators use 
industry proven drives com- 
bined with 100% digital tech- 
nology . . . there are no 
analog circuits to slowly drift 
out of tolerance. 


Let us help free you from 
your disk-duplicating bottle- 
neck at a surprisingly 
attractive price. Write or call: 
VICTORY ENTERPRISES 
TECHNOLOGY, INC., 8910 
Research Blvd., Suite B2, 
Austin, Texas 78758— 
(512) 450-0801. 































Victory Enterprises 
Technology, Inc. 
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16-Bi f (Listing Continued, text begins on page 108) 


Listing One 
; case for straight move 
straight2: 
inc si ; ++x value 
mov bx,si ; bx = x value 
sar bx,1l 
sar bx tk * bx = x addr offset 
; 
ror dl,l ; adjust color position 
ror re ft rae § 
; 
or [bx] [di] ,dl > or disp with color (plot point) 
dec cx ; ~-loop counter 
jz lineexit ; quit when cx=@ 
; 
delse2 = $+2 
add bp, fakedw ; update error term 
js straight2 > if bp<@ goto straight 
; 
: case for diagonal move 
diagonal2: 
inc si ; ++x value 
mov bx,Si > bx = x value 
sar Dx; ) 
sar bx,l > bx = x addr offset 
; 
ror aii * adjust color position 
ror oe ae 
’ 
xchg ax,di ; every other for page adj 
deldy2 = $+l 
add ax,fakedw o  ESY 
’ 
or [bx] [di] ,dl > or disp with color (plot point) 
dec cx ; --loop counter 
jz lineexit ; quit when cx=@ 
; 
delde2 = $+2 
add bp, fakedw ; update error term 
js straight2 > if bp<@ goto straight 
jmp diagonal2 > if bp>=@ goto diagonal 
; 
? ee eew wesw wee www eee ewww ew wee wm www wwe ewwrererererrreseeoaoooacreo 
lineexit: 
pop ds ; restore ds 
pop bp > restore calling bp 
ret 
‘ 
orline endp 
; 
? anaes nena eee we Dome ew E eee we ew wee wee wooo oonerwerreee=2e22222 =a 
’ 
; orpt.asm 
: 
7 eae w eae ee wwe we www eee wwe mew wee ewe ewe wer owororoenereoeorercr-ereorreeoeereoroo sa ee ee 
; 
+ ROUTINE TO OR A POINT ONTO MEDIUM RES COLOR SCREEN 
7 
orpt proc near 
; 
; get initial values for x and y 
mov si,OFFSET yl s addr yi 
lodsw ; ax = yl 
; 
> multiply y-coord by bytes per row and adjust for even/odd lines 
ror al,l ; adjust odd/even 
? 
mov dx, @B87FH ; disp addr and page mask 
120 


(Continued on page 122) 
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$3.00 C Compiler 


Due to popular demand, Dr. Dobb’s Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 
only $3.00. 


Ron Cain's C compiler from sold-out 1980 issues #45 and #48 includes 
“A Small C Compiler for the 8080s” and “Runtime Library for the Small 
C Compiler.” 


The J. E. Hendrix reprint includes part two of “Small-C Compiler v.2” 
from sold out issue #75 and completes the first part of the compiler 


article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $3.00 for each copy with this coupon and send to: 
Dr. Dobb's Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 


Please send copy(ies) of the Ron Cain Reprint, and 
copy(ies) of the J. E. Hendrix reprint to: 


Name 
Address 


City A AM 4 
ALL REPRINT ORDERS MUST BE PREPAID. 
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PC FORTH ™ Try the professional | language offering 
IBM PC & XT, the utmost performance in the shortest 
HP-150, evelopment time. Transport your ap- 


WV Elellattetia e}ifor= tile) ale ol-iau/-1-1am-lalvs © melelal=\alat-lalorve 
Apple i. 83-Standatd compilers) or expanded 


32-bit versions! Choose from our wide 
CompuPro, 1-1 [To te] alfe) ol gelo] clasts re mele) male Ufo llare 
Sage & CP/M-68K, native code compilers, cross-compilers. 
Wang PC, math coprocessor support, and B-Tree 
All CP/M and __ file managers. |All fully Supported with 

MSDOS computers. hotline, updates, and newsletters. 


Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to (213) 306-7412 
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33 KFLOPS 


Use your IBM PC, XT or AT to multiply 
two 128 by 128 matrices at the rate of 33 
thousand floating-point operations per 
second (kflops)! Calculate the mean 
and standard deviation of 16,384 points 
of single precision (4 byte) float- 
ing-point data in 1.4 seconds (35 
kflops). Perform the fast Fourier trans- 
form on 1024 points of real data in 6.5 
seconds. Near PDP-11/70 performance 
when running the compute intensive 
Owen benchmark. 


WL FORTH-79 


FORTH-79 by WL Computer Systems is 
a powerful and comprehensive pro- 
gramming system which runs on the 
IBM PC (and some compatibles) under 
PC DOS 1.1 or later. If your computer 
has the 8087 numeric data processing 
chip (NDP) installed, then this version of 
FORTH-79 will unleash the awesome 
floating-point processing power which 
is present in your system. If you haven't 
gotten around to installing the 8087 
NDP coprocessor in your computer, 
you can still use WL FORTH to write 
applications using standard FORTH- 
79. 































System includes editor, memory dump, 
decompiler, nondestructive stack print- 
out, screen printer and screen copy util- 
ities. FORTH sources for these utilities 
are included. 











Unlike most other products, the com- 
plete source is available at a very 
affordable price. 






Package 1 includes FORTH-79 ver- 
sions with and without 8087 support. 
Included are screen utilities, 8087 and 
8088 FORTH assemblers. $100 








Package 2 includes package 1 plus the 
assembly language source for the WL 
FORTH-79 nucleus. $150 








Package 3 includes package 2 plus the 
WL FORTH-79 source screens used to 
add the 8087 features to the vocab- 
ulary. $200 







Starting FORTH book. $22 


WL Computer Systems 
1910 Newman Road 
W. Lafayette, IN 47906 
(317) 743-8484 


Visa and Master Card accepted. 











IBM is a trademark of International Business Ma- 
chines 
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16-B1 f (Listing Continued, text begins on page 108) 


Listing One 
and dl,al ; mask page bit, disp + y.coord 
sal ax,l ; times 32 
sal ax,1l ; times 64 
add dx,ax * addr disp seg + y-coord times 5 (890) 
Ff 
; compute x-coord address offset 
lodsw ,; ax = xl 
mov di,ax ; get x-coordinate 
sar ree bea B ; divide 
sar dik ; by 4 


compute the rotated mask and color 


and al,3 ; just the bit count into the index 
add al, [si] ; pixel position + color (* 4 + 1) 
mov bx,si » bx = ctableh - l 
mov si,ds * save ds 
xlat * look up the masks al=[al+bx] 
; 
mov ds,dx s set seg to disp + y-addr 
or [di] ,al ; or the byte with the color 
: 
mov ds,si * restore ds 
ret 


Listing Two 


/* 
This is an example written in 'C' using the line drawing routine. 


-- Bruce Smith. 
id 


extern int xl,yl,x2,y2; 
extern char color; 


main () 


int incr=3; 
pevsvm(4); /* color med res graphics */ 


color=(2<<2)+1; 
X¥1=16@; yl=100; x2=0; y2=0; 


for (3; x2<319; x2+=incr) orline(); /* draw line */ 
Xx2=319; 


for (; y2<199; y2t=incr) orline(); /* draw line */ 
y2=199; 


for (3; x2>@; x2-=incr) orline(); /* draw line */ 
x2=G6; 


for (; y2>@; y2-=incr) orline(); /* draw line */ 
eget (); /* wait for keypress */ 


i sae /* 88 col b & w */ 


End Listing One 


End Listing Two 


122 Dr. Dobb’s Journal, January 1985 





Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 
Multitasking Windowing 
Handles interrupts _Interactive 
Fast native code Compiles quickly 
Floating point No runtime fee 








MTBASIC is a true native code compiler. It runs Bytes’s Sept. 

"81 seive in 26 seconds; interpreters take over 1400 seconds! 
Because MTBASIC is multitasking, it can run up to 10 Basic 
routines at the same time, while displaying ten separate win- 
dows. Pop-up/down menus are a snap to implement. 







MTBASIC combines the best of interpreters and compilers. To 
the programmer, MTBASIC appears to be an extremely fast 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa, 
MC, checks and COD. Send $49.95 plus $3.50 shipping and 
handling ($10 overseas) to: 


-SOFIAID, Inc. 


P.O. Box 2412 Columbia,MD 21045-1412 
301/792-8096 
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Graphs without 
Graphics? 


No need for screen graphics. Publishable 


graphs on your dot matrix printer. 


Easy to Use. No programming. 
CP/M 80 or 86, MS-DOS, or PC-DOS. 
Excellent Manual. Most disk formats. 


Data Plotter” 


-O3 aa TS 8 KE TO Ot 














xR=EX EMPIRICAL 


DISPLACEMENT 





MBILLISECONDS 


i ar’ Line Graphs & Shipping...... add $3 
k ee Scatterplots. .$69 outside us and 

Software BarGraphs& “mada. 

7 Cedars Road Pie Charts . . .$69 Specify which ae 

Caldwell, NJ 07006 saint aby (201) 226-7552 
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Simulator/Debugger for IBM-PC 
for 8048 - 8051 - 7000 uCs 


6614 inc ri 
doLoop 
6861S out! Pia 
8816 ani p2,8latch 
6818 orl p2,8not latch 
881A jfl VoltsOK 
7 
BIC add a, 814 
OBIE jfB pastSwitch 
8628 call incB1SS 
8622 inc r' 
8823 jnt® turnOMmotor 
RO-88 R4-8F aC-88 8-8 Fi- 
R163 RS-82 PS-88 T8=1 Ti: 
~ @8 R6-81 CT-82 BS-8 Cy: 
3-88 R7-88 P8-88 TF-8 IM: 


Execute and debug code for popular single chip micro- 
computers on your IBM PC. Dynamic display with windows 
for source code, control flow, registers, flags, memory, 
commands, and more! Set breakpoints, traps, etc. Cross- 
assembler & EPROM programmers, too. 
8048 8051 7000 Z8 Demo disk 

X-Assembler $195): oad sania 
EPROM Prog $245] for simulator 
Simulator |v ]vV1vV] [$395] only $39.50 


ay Cybernetic Micro Systems 


Box 3000 @ San Gregono. California 94074 USA 
(415) 726-3000 @ Telex 171-135 Attn: Cybemetics 
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A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 


SNOBOL4+ 


SNOBOL4 language with its superb pattern-matching 


—the entire 


facilities * Strings over 32,000 bytes in length ® Integer 
and floating point using 8087 or supplied emulator vA 
® ASCII, binary, sequential, and random- oe 
access |1/O ® Assembly Language inter- < h 


face * Compile new code aoe 


program execution ® Create 
SAVE files © Program AP ge 


and data space ee we" 


With 
to 300K page Pg ys aa asia & over 
RAM eS ie) 100 sample pro- 

as grams and functions 
2 
aie 
ANS 
ww od >: aie 8086/88 PC’/MS-DOS or 
00 et og CP/M-86 systems, 128K minimum 
Pa 5's" DSDD, specify DOS ‘CPM format 
° 
ad Send check, VISA, M/C to: $95 
~ Catspaw, Inc. puss. 


P.O. Box 1123 © Salida, CO 81201 © 303 539-3884 
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SCREEN 


GISIEW wavacer 


cVIEW helps to create and com- 
municate with forms that will 
enable you to provide a 
sophisticated user interface 
for your C applications 
programs. 












Ci86, Lattice, Mark Williams 
Dynamic Forms Position 
Special Key Definitions 
Input Range Validation 

Color or Monochrome 
Block Cursor Option 
Selection Sets 














cVIEW Screen Manager ................ $245.00 
cVIEW with Source Code............... $545.00 
Mee Oe APONTIO ois inreed bis sa teaceicccns $25.00 





CompuCraft 
42101 Mound Road 731-2780 


Sterling Heights, Michigan 48078 
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No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M80 format to a ZILOG™ or 8080 source 
code MAC file with insertion of all public 
and external symbols. 


@ REL/MOD lists library modules 
@ REL/VUE displays the bit stream 


@ 50 page manual with examples 
@ free brochure available 
@ REL/PAK includes all of the above 


REL/PAK for 8080 only 
REL/PAK for Z80 & 8080 
on 8”SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


CP] MicroSmire 


COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46515 
1-800-622-4070 
(Illinois only 1-800-942-7317) 
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FORTH 


For 65SC802 
The 16 bit 6502 


Apple, Atari, Aim-65 
Commodore, OSI 


Faster 16 bit code 


Starlight FORTH Systems 
15247 N. 35th St. 
Phoenix, 85032 


Also 
FORTH tools 
For all FORTH systems 
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B/G DISCOUNTS ON 
LITTLE BOARDS™ 
& ACCESSORIES 


@ AMPRO LITTLE BOARD™ —64K, Z80a CPU, CTC, 
DART, 1 parallel port, 5% controller supports four 
48tpi and/or 96tpi drives w/ CP/M 2.2 and ZCPR3 
(A & T) from $329 


e@ SYSTEM SUPPORT PKG-— Manuals, source code 
schematics, connectors & cables 

@ SCSI PLUS—DMA Hard disk interface 

@ TEAC 55B DSDD 48tpi 1% ht drive 


@ TEAC 55F DSDD 96tpi 1% ht drive 

e INTEGRAND Custom two drive cabinet with 5 amp 
power supply & power cables 

@ TERM-MATE-Cabinet for 212 ht + LITTLE 
BOARD w/ all cables & supply 

@ AMPRO SERIES 100 complete systems .. 

VISA & MASTER CHARGE. Personal Checks. 

Please allow 2 weeks. Shipped via UPS. 

Prices F.0.B. Prairie View, IL. 

For additional information write or call: 

DISKS PLUS « 15945 West Pope Blvd. « Prairie View, IL 60069 

(312) 537-7888 


tVISTON! OF -SOLARONECS | 


SCALL 
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C Programmers 


B-Trees 


For 


y 5.° S&S ie 00 Postage 


Source Code Included 
The Softfocus B-Trees record index- 
ing library will helo you develop 
sophisticated application programs. 
With Softfocus B-Trees you get: 
@ high speed file handling for up 
to 16.7 million records per file 
e customizable BDS or K &R 
Standard C source code 
@ no royalties on applications 
programs 
@ support random and sequential 
file access 
e includes example programs 
Softfocus pee 


1277 Pallatine Dr., Oakville, Ont — = 
Canada L6H 121 (416) ) 844-2610 =— 
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THE SOFTWARE DESIGNER 





by Michael Swaine 


Tom Evslin and his company, Solu- 
tions Inc., have written seven programs 
for the Macintosh so far, including 
Dow Jones Straight Talk and Spread- 
sheet Link, Rags to Riches Payable 
and Receivables, and learning games 
for Que. Eighty percent of the compa- 
ny’s development work is software for 
the Mac. As the first person in his 
company to do Mac development, Evs- 
lin has some opinions about what it’s 
like to develop software for the ma- 
chine named after a raincoat. 

Evslin: As everyone has been saying, 
the Mac presents a bigger hurdle to 
software development than any past 
microcomputer. The vocabulary of ca- 
pabilities represented by those utilities 
in ROM is powerful, but the Mac gives 
you no easy way to start using them. 
Traditionally, when you were going to 
write a program for an Apple comput- 
er, you started by getting into BASIC 
and writing a Hello program. Well, 
there’s no way to do that on the Mac. 
There is no immediately obvious way 
to write to the screen, no obvious way 
to grab keyboard input. This was in- 
tentional; it forces you to get into and 
use that excellent interface. But at 
first, it’s discouraging. But then there 
follows a period of euphoria. Each pro- 
grammer on our team has gone 
through this depression, when there 
appear to be random events going on. 
Then the euphoria comes as he begins 
to learn how to make pulldown menus 
and scrollbars work. 

DDJ: I’m sure that’s a nice feeling, but 
what’s the practical implication? 
Evslin: Overall, you become a more 
productive software developer. You 
just wouldn’t build that kind of user 
interface into every product if you had 
to do it from scratch every time. The 
Mac software environment puts that 
interface into every product for you. 
DDJ: What problems do you run into 
in porting software into the Mac 
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environment? 

Evslin: You don’t port software to the 
Mac. Or we don’t. Our products are all 
new code. We look at the old code; we 
have it to look at as we work; but what 
we write is all new code. You can’t just 
translate software from another envi- 
ronment to the Mac; when you do, the 
result is a piece of junk. 

DDJ: What kind of support do devel- 
opers get from Apple in learning to 
work in the environment, learning to 
develop software for the machine? Is 
Mac college helpful? 

Evslin: Apple runs a Mac college but 
until recently there was no Mac high 
school. There was no way to get there 
from here. Now there are a few people 
providing that level of training, but 
most people have had to get there by 
the school of hard knocks. Mark Ur- 
sino (formerly of Microsoft) is one of 
these teaching at the lower level; Mark 
has taught a Mac high school at Apple. 
That was helpful. 

DbDJ: The user documentation for the 
Mac is attractive and well organized, 
but I was a bit surprised when | first 
saw the pile of photocopied pages that 
make up the documentation a develop- 
er gets. Isn’t that documentation a 
handicap? 

Evslin: The lack of high-level, struc- 
tured documentation has been a prob- 
lem. Apple has given programmers one 
level of documentation, with no way to 
get an overview. You read the window 
management section and you will prob- 
ably learn more than you would ever 
want to know about window manage- 
ment in the Mac environment, but 
there’s no way to know, short of exhaus- 
tive search, if what you want to know 
about a particular point in window 
management is in the documentation. 
DDJ: What about support? 

Evslin: There are bugs, but few of 
them, considering all that is in the 
ROM. And there is developer support. 


Not every programmer gets all the ac- 
cess to the developers that he wants 
when he wants it, but contrast this with 
IBM, where developers are just inac- 
cessible. Right now, you can actually 
talk to the people who were involved in 
the development of the Mac software. 
You can get at the actual developers. 
DbJ: Has it been a hindrance that you 
have to work on the Lisa? 
Evslin: Having to do development on 
another machine is a barrier. It’s not so 
bad for a company like ours, but it is 
difficult for somebody working in his 
basement to have to go out and buy 
another machine to develop software 
for the Mac. 
ppJ: Do you think that the 512K Mac 
is going to make things easier for soft- 
ware developers? 
Evslin: The 512K Mac will not be as 
great a boon to programmers as €very- 
one thinks. Memory has been overrat- 
ed as an aid to the developer. You don't 
have to build a user interface or do 
those other things the ROM routines do 
for you, so you have more of the RAM 
to use anyway. 128K is not terribly 
limiting. What’s confusing is that the 
Mac memory management is hard to 
get used to. That’s really where the 
problems lie, not in the amount of 
memory. The larger machine may in 
fact mask bugs more easily than the 
128K machine. With the 128K, the 
heap gets reorganized fairly often. It’s 
easy to write routines that depend on 
something being relocatable when in 
fact it’s not. Then the heap gets reorga- 
nized and things get moved and you 
see an erratic, nonrepeatable bug. 
With 512K you may never see the bug 
crop up in beta test. 
I was the first in our company to do 
development on the Mac and I saw all 
the others going through the learning 
process. Nowhere did anybody have as 
much trouble as in memory manage- 
ment. Where handles get allocated, 
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heap management. Hardest-to-track 
bugs. 

DDJ: The predictions are that Jack 
Tramiel at Atari and everyone else will 
soon be bringing out Maclike machines, 
and the predictions seem likely to come 
true, more or less. What do you think 
we can expect from such machines? 
Evslin: Those who are going for the 
low-cost market will opt for maximum 
compatibility with the Mac; those sell- 
ing functionality will go for merely us- 
ing the conceptual interface and will 
try to differentiate themselves in terms 
of functions. Both high and low levels 
of compatibility will emerge. 

The Mac itself is poised to penetrate 
two new markets: people who would 
never have bought a computer before 
and the professional market. The for- 
mer, for sure, as more software is devel- 
oped that is fun. We will see not so 
much a fight with IBM for market 
share as an expansion of the market. 
Professionals, I’m not so convinced 
about, but as the so-called power soft- 
ware comes out, the opportunity will 
exist. 

[After we spoke, Apple leaked its 
current marketing plans: the Christ- 
mas “test drive a Mac’’ deal and the 
plan to go after corporate middle 
managers, leaning on the new Lotus 
product for the Mac, the planned Mac 
local-area network, a laser printer, 
and a telephone integrated into the 
machine. CEO John Sculley claimed 
that Apple has a two-year window for 
getting Macs on corporate desktops 
and said that the plan was not one that 
puts Apple on a collision course with 
IBM. ] 


DD) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 197. 
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3,000 


Programmers 


depend on us 


to tind, compare, evaluate 
products and for solid value. 


THE PROGRAMMER’S SHOP serves serious microcomputer 
programmers . . . from giant institutions to small independents. 
Specializing helps us provide 100s of programming products 
... technical literature . . . specialized evaluations and more 
to help you find and evaluate. Other services like . . . special 
formats . . . rush delivery . . . payment options (POs, COD, 
credit cards, etc.) .. . newsletters . . . and reports help you 
Save time, money, and frustration and get solid value. 


ARTIFICIAL INTELLIGENCE 


EXSYS - Expert System building 
tool. Full RAM, Probability, Why, 
Intriguing, serious. PCDOS $200 


GC LISP - “COMMON LISP”, Help, 
tutorial, co-routines, compiled 
functions, thorough. PCDOS $475 


TLC LISP - “LISP-machine’-like, 

all RAM, classes, turtle graphics 
8087 for CP/M-86, PCDOS or 
MSDOS $235 


TLC LOGO - fast, classes. CPM $139 


PROLOG-86 - Learn fast, Stan- 
dard, tutorials, samples of Natural 
Language, Exp. Sys. MSDOS $125 


Expert System front-ends for 
PROLOG: APES ($275), ES/P 
($1895) 


Other solid alternatives include: 
IQ LISP ($155), MuLISP-86 
$250), WALTZ LISP for CPM 
($159), MicroPROLOG ($275). 


DEBUGGERS ~ 


CODESMITH-86 - Symbolic, multi- 
window, very visual. PCDOS $139 


PERISCOPE DEBUGGER - load 

after “bombs”, symbolic, “Reset 

box”, 2 Screen, own 16K. PCDOS 
$295 


Consider others like SYMD ($119), 
Mylstar ($119), Pfix ($175), TRACE 
($115), ATRON ($269). 


ACTIVE TRACE for BASICA, 
MSBASIC. CMP or MSDOS. $72 


SOURCE PROBE by Atron for 

Lattice, MS C, Pascal. Windows 

single step, 2 screen, log file. 
OS $395 





Call for a Catalog, literature on any product or a free literature “Packet” on: “Al”, 
BASIC, C, COBOL, Debuggers, Editors, FORTH, FORTRAN, Libraries, PASCAL 


C PROGRAMMING 


INSTANT C - Interactive develop- 
ment - Edit, Source Debug, run. 
Edit to Run - 3 Secs. MSDOS.__ $500 


“INTRODUCING C’” - Interactive 
C to learn fast. 500 page tutorial, 
examples, graphics. PCDOS = $95 


MEGAMAX C - native Macintosh 
has fast compile, tight code, K&R, © 
toolkit, .OBJ, DisASM MAC $295 


CROSS COMPILERS by Lattice, 
Cl. VAX to 8086. VMS $3000 


C LIBRARIES 


COMMUNICATIONS by Greenleaf 
($149) or Software Horizons ($139) 
includes Modem, interrupts, etc. 
Source. 


C SHARP Realtime Toolikit - well 
supported, thorough, portable, 
objects, state sys. Source $600 


GRAPHIC - scientific graphics, 4096 
by 3200 pixel - map to device, 
Zoom. 8087, Source. MSDOS_ $195 


ROMPack - special $Main .EXE 
editor, source, tech support, 8086. 
| $195 


SUPPORT PRODUCTS 


BRIEF Programmer's Editor - undo, 
windows, reconfigurable, macro 
programs, powerful. PCDOS $195 


PLINK-86 for Overlays, most lang., 
segment control. MSDOS $325 


PROFILER-86 - faster programs 
with less work. Learn quick, sym- 
bolic, All Lang. MSDOS $125 


SCIL - Source Librarian to manage 
Versions, Doc, Minimize disk 


space, confusion. MSDOS $335 





CALL TOLL FREE 800-421-8006 


THE PROGRAMMER’ SHOP” 


The.programmer’s complete source for software, services and answers 


128-D Rockland Street, Hanover, MA 02339 In Mass.: 800-442-8070 or 617-826-7531 
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by R. P. Sutherland 
Subliminal Software 


New Life Institute has released soft- 
ware for the IBM PC and compatibles 
designed to reprogram the user’s hab- 
its, behaviors, and personal beliefs. 
The program entitled Subliminal Sug- 
gestions and Self Hypnosis Programs 
for Your Computer! flashes user-cho- 
sen messages as a super-high-speed 
subliminal background on the screen. 
The subliminal messages can be used 
to reprogram the user’s subconscious. 
The package includes separate pro- 
grams for self-hypnosis and deep re- 
laxation. The accompanying documen- 
tation contains a warning about pos- 
sible misuses of subliminal technology. 
The “Subliminal Suggestions and Self 
Hypnosis” package retails for $75.00. 
The programs are written in C with 
several assembly language routines. 
Contact New Life Institute, PO. Box 
2390, Santa Cruz, CA 95063 (408) 
429-1122. Reader Service No. 109. 


Babel 


The Babel that towers above Silicon 
Valley casts a shadow around the 
globe. A high-tech lingua franca could 
speed aspects of the microcomputer 
revolution, but diversity promotes cre- 
ativity. If, by joining forces, the United 
States and Japan could produce the 
man-like machine that Turing predict- 
ed by the 21st century, one can’t help 
but wonder if the present confusion is 
God’s attempt to frustrate our 
progress. 

I attended Gary Kildall’s PC Faire 
presentation in San Francisco last 
year, in which he was supposed to 
prophesy the direction of the micro- 
computer industry over the next three 
years. Instead, he traced the develop- 
ment of microprocessors, memory, and 
input/output devices during the last 
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decade and limited any predictions to 
one year. Within a year, he said, pro- 
grammers may assume that the stan- 
dard business computer will have 3 
megabytes of RAM, a CPU in the 
80286 category or a 32-bit processor, 
and, thanks to laser disk technology, 
enough storage to contain the Encyclo- 
paedia Britannica. All of this speed 
and power means that we are going to 
be able to get a lot more work out of 
the microcomputer. How? Kildall had 
the solution: a copy of Concurrent 
DOS, still in the shrink-wrap, which he 
offered to sell because, he said, he 
needed plane fare home. Concurrent 
DOS, like TopView, is a multitasking, 
windowed program to _ enhance 
MSDOS. Microsoft Windows, a simi- 
lar product, has been delayed until 
June. 

Kildall seemed most enthusiastic 
about Virtual Device Interface (VDI) 
technology. By raising the functional- 
ity of all devices to a common level, 
VDI allows one to create programs that 
are not at the mercy of technological 
leapfrogs. The VDI presents a general 
interface through which high-level 
programs can communicate with a 
wide variety of hardware. IBM, Digital 
Research Institute, and now Ashton- 
Tate are licensing GSS-Drivers from 
Graphic Software Systems. GSS-Driv- 
ers is an implementation of the Ameri- 
can National Standards Institute’s 
proposed VDI programming standard, 
joined with a library of device drivers, 
which permits input and output device 
independence. Graphic Software Sys- 
tems is located at 25117 South West 
Parkway, Wilsonville, OR 97070. 
Contact: William Merchant (503) 
682-1606. 

Vertex Systems has announced 
Apple-Turnover, a board that gives IBM 
PCs the ability to read and write Apple- 
Dos 3.3 and Apple CP/M disks. Vertex 
Systems also has XenoCopy, a system 





of programs to copy files between disks 
of different computers. I wanted to 
compare it to microVersal, a similar 
product that we have been using with 
mixed results, but Vertex was unable to 
part with a review copy. Apple- 
Turnover is priced at $279.50 and Xen- 
oCopy by Fred Cisin is $99.50 or 
$149.50 for XenoCopy Plus, which per- 
mits writing to and formatting other 
disks. Vertex Systems, Inc., 6022 W. 
Pico Blvd., Los Angeles, CA 90035 
(213) 938-0857. Reader Service No. 105. 
CompuPro users may now run 
PCDOS at CompuPro speed. Comput- 
er House announces PCPRO version 
2.4. PCPRO is IBM’s PCDOS version 
2.1 modified to operate on CompuPro 
letter series systems. The package in- 
cludes INTERDOS, a CP/M to MSDOS 
transfer utility, and COFIGIO, an in- 
teractive I/O configurative utility. PC- 
PRO: PCDOS for CompuPro costs 
$395.00 from Computer House, 722 B 
Street, San Raphael, CA 94901 (415) 
453-0865. Reader Service No. 107. 





Hardware 


Logitech has applied infrared technol- 
ogy to the mouse and produced the 
first cordless mouse as a result of cus- 
tom development work for Metaphor 
Computer Systems. Logitech Inc. is lo- 
cated at 805 Veterans Blvd., Redwood 
City, CA 94063 (415) 365-9852. Read- 
er Service No. 111. 

CompuPro has introduced a high- 
speed, low-power static RAM board 
compatible with both 8- and 16-bit pro- 
cessors. The RAM 23 provides up to 
128K of static RAM and operates at up 
to 12 MHz with 8086/8088/80286 
CPUs. The RAM 23 has a suggested re- 
tail price of $400.00 for the 64K version 
and $775.00 for the 128K version. Con- 
tact Jeff Swartz, CompuPro, 3506 
Breakwater Court, Hayward, CA 
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94545 (41 5) 786-0909. Reader Service 
No. 115. 


Morrow has begun shipping a 10- 


pound battery-operated portable com- 
puter that operates under MSDOS and 
uses standard 5%-inch floppy-disk 
drives. A 640K dual drive version is 
available for $3,695.00. Standard fea- 
tures include: clock, built-in 300 baud 
modem, calculator, and word proces- 
sor. The CPU is a CMOS 80C86. The 
Pivot is available from Morrow, 600 
McCormick, San Leandro, CA 94577. 


Reader Service No. 117. 





Miscellany 
Musical Software 


Tune Smith/PC is the first software 
for musical composition for the IBM 
PC. Price: $49.95 from Blackhawk 
Data Corporation, 307 N. Michigan 
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COMPUTEREYES is a low-cost video 
acquisition system for the Commodore 
64 series. The product includes ma- 
chine language image capture routines 
and image save-to-disk capability. 
COMPUTEREYES is the Commodore 
version of Digital Vision’s video acqui- 
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Avenue, Chicago, IL 60601 (312) 236- 
8473. Reader Service No. 119. 


Disk Preventive Maintenance 

Disk P.M. from Digital Pathways, 
Inc., performs preventive maintenance 
on hard and floppy disks for IBM PCs 
and compatibles. Disk P.M. diagnoses 
problems, automatically condenses 
hard or floppy disks, restores order, re- 
builds damaged directories, recovers 
damaged files, locks out faulty areas, 
and copies system information to disks 
that refuse to boot. Retail price is 
$49.95 from Digital Pathways, Inc., 
1060 East Meadow Circle, Palo Alto, 
CA 94303. Reader Service No.121. 


Public Domain Help Function 

This software package provides full 
on-screen help for all PCDOS version 
2.0 and 2.1 commands. The actual help 
text may be altered by the user. Copies 
are available for $10.00 from Chris 


sition system for the Apple II series. 
The complete system, including video 
camera, is priced at $349.95 from Di- 
gital Vision, Inc., 14 Oak Street Suite 
2, Needham, MA 02192 (617) 444- 
9040. Reader Service No. 113. 





Bailey, PO. Box 332, Peterborough, 
Ontario, Canada, K9J 6Z3. Reader Ser- 
vice No. 125. 


TRS-80 Screen Dump 

A high-resolution screen dump utility 
for TRS-80 Models I, II, III, and 4 al- 
lows users to dump the contents of a 
video screen, text and graphics, to an 
Epson or Gemini printer. The price is 
$19.95, available from Softbyte Com- 
puting, Box 217, Wallingford, CT 
06492 (203) 239-6923. Reader Service 
No. 123. 


Tools for Turbo Pascal 
Programming Tool Kit by Paragon 
Courseware is a set of utilities for Tur- 
bo Pascal programmers. The kit in- 
cludes a Window Package, a Function 
Evaluating Package, and a System In- 
formation Package. The Graphics 
Package has several procedures that 
draw various shapes such as triangles, 
parallelograms, other polygons, circles, 
and ellipses. The Tool Kit retails for 
$49.95 from Paragon Courseware, 
4954 Sun Valley Road, Del Mar, CA 
92014 (619) 481-1477. Reader Service 
No. 127. 


Forth Authors 

The Forth Interest Group announces 
the formation of its Author Recogni- 
tion Program, which offers free FIG 
membership to the author of any 
Forth-related article published in a 
periodical. FIG hot line: (415) 962- 
8653. 

The 1985 Rochester Forth Confer- 
ence will be held June 12—15 at the 
University of Rochester, New York. 
The focus of the Conference will be on 
Software Engineering and Software 
Management. Papers on the following 
topics are welcomed: 1) Software En- 
gineering and Software Management 
Practices; 2) Forth Applications; and 
3) Forth Technology. Submit a 200- 
word abstract by March 30 to Law- 
rence P. Forsely, Laboratory for Laser 
Energetics, 250 East River Road, 
Rochester, NY 14623 (716) 235-0168. 


DD} 


Readcr Ballot 
Vote for your favorite feature/article. 
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l6/3¢ BIT 
PROCESSING POWER 





In 15 minutes you can have a 
16 bit O.S. running and still 
use your CPM80 with the 
touch of a key. 


WE SUPPORT 


CPM8s0 RAM DISK 
MSDOS 

CPM8&6 

CPM68K 

OS-9* UNIX Look-A-Like 
1.25 Mb RAM ** 


6 Mhz No Wait States 
Real Time Clock 
Math Co-Processors 


AND MORE 


Compatible with any Z80 
System Running CPM 2.2 
or 3.0. 


HSC’s CO-1686 
and CO-1668 
Attached Resource 


Processors 
Prices Starting 
at $695. bs 


ey rae SS | 


Hallock 
Systems 
Company, Inc. 


Blazing the Trail 


262 E. Main St. . 
Frankfort, NY 13340 
(315) 895-7426 


* Available First Quarter 
**CO-1686 Expandable to 768Kb 
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Include $3.00 shipping. COD, VISA and MASTERCARD accepted 
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“Despite the recent press notices, 
multiuser microcomputers aren't 
anything new!” 

















This is the first in a series of 
discussions with Rod Coleman, 
President of Stride Micro 
(formerly Sage Computer) on 
the 68000 multiuser market 
and its current environment. 


Q: Why do you say that? 
AC: ‘The technology to build a 
high performance multiuser Sys 
tem has been around for five 
ears, And while some of the 
eaders in this industry have been 
pretending that micro multiuser 
didn’t exist, we've been shipping 
complete systems for nearly three 
years, The benefits of multiuser 
are undeniable; it is more cost ef- 
fective, and offers greater flexibil- 
ity and utility, But until just re- 
cently, the marketing pressure to 
be compatible instead of bein 
better, has blinded the industry,’ 
Q; What do you mean? 
RC; ‘Well, for example, the 
Motorola 68000 processor intro- 
duced 16/32-bit technology to the 
personal computer world a long 


time ago, It was fully capable of 
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‘A surprising feature is 
compatibility. Everybody 
talks about It, but nobody 
does anything about it." 


meeting high performance and 
multiuser design requirements in 
1980, Instead of this trend taking 
off, most energy was spent pro- 
moting 8088/8086 products that 


were clearly inferior from a tech- 


nical mach of view. This phenom: | j= 


enon leads me to believe that they 
will soon rewrite the old proverb: 
‘Build a better mousetrap and the 
world will beat a path to your 
door,’ but only if they can find the 
way through the marketing fog,"’ 
Q: Are things changing now? 
AC: ‘Yes and no, With the busi- 
ness world starting to take more 
and more interest in microcompu- 
ter solutions, the advantages of a 
solid multiuser system couldn't be 
kept hidden forever; companies 
like ours and a few others were 
beginning to make a dent. Instead 
of taking a fresh approach, some 
of the newest multiuser offerings 
will probably only give the tech- 
nology an undeserved black eye! 
Multiuser is far more than the 
ability to plug in more terminals, 
It involves things like machine 
compatibility, fast processors, 
adequate memory, large storage 
capacities, backup features, net- 
working, and operating system 
flexibility,” 

Q: Is this what makes the new 
Stride 400 Series different? 

RC: ‘Exactly, That sounds self- 
serving, but it's true, Today a 
number of companies are intro- 
ducing their first multiuser sys- 
tem, We've been building and 
shipping multiuser machines for 
almost three years. We know the 
pitfalls, we've fallen into some of 
them, But we have learned from 
our mistakes,”’ 

Q: Give me some examples, 

AC: A hard disk is almost manda: 
tory for any large multiuser in- 
Stallation, Yet, backing up a hard 
disk can be a nightmare if you 
only have floppies to work with, 
That's why we've added a tape 
backup option to all the larger 
Stride 400 Series machines. It's 
irresponsible for a manufacturer 
to market a multiuser system 
without such backup. Another 
good lesson was bus design, We 
started with one of our own de- 
Signs, but learned that it's impor: 
tant not only to find a bus that is 
powerful, but also one that has 
good support and a strong future 
to serve tomorrow's needs. We 





“The marketing pressure 
to be compatible 
Instead of being better, 
has blinded the Industry."’ 


think the VMEbus is the only de- 
Sign that meets both criteria and 
thus have made it a standard fea- 
ture of every Stride 400 Series 
machine,”’ 

Q: What are some of the other 
unique features of the 400 Series? 


AC: ''A surprising feature is com- 
atibility, Everybody talks about 
t, but nobody does anything 
about it, Our systems are com- 


pletely compatible with each other | 


from the 420 model starting at | 
$2900, through the 440, on to the 
powerful 460 which tops out near 


$60,000, Each system can talk to 49" 
the others via the standard built-in 


local area network. Go ahead and 
compare this with others in the in- 
dustry, You'll find their little ma- 
chines don’t talk to their big ones, 
or that the networking and multi: 
user are incompatible, or that they 
have different processors or 
operating systems, and so on,’ 
Q: When you were still known as 
Sage Computer, you had a reputa- 
tion for performance, is that still 
the case with the new Stride 400 
Series? 

AC: ‘‘Certainly, that's our calling 
card; ‘Performance By Design,’ 
Our new systems are actually fas- 
ter; our standard processor is a 10 
MHz 68000 running with no wait 
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states, That gives us a 25% in- 
crease over the Sage models, 
And, we have a 12 MHz pro- 
cessor as an option, Let me add 
that speed isn’t the only way to 
judge performance. | think it is 
also measured in our flexibility, 
We support a dozen different 
operating systems, not just one, 
And our systems service a wide 


Wy | variety of applications from the 


garage software developer to the 
corporate consumer running high 
volume business applications,’' 


Q: Isn't that the same thin 
manufacturers say in their ads? 


AC: ‘'Sure it is, But to use another 
over used-term, ‘shop around’, 
We like to think of our systems as 
‘full service 68000 supermicro- 
computers.’ Take a look at every- 
one else’s literature and then 
compare, When you examine 
cost, performance, flexibility, and 
utility, we don’t think there's any- 
one else in the 
race, Maybe 

that’s why we've 
shipped and 
installed more 
multiuser 68000 — 
systems than : 
anyone else,’' 


all 
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STRIDE 


Formerly Sage Computer 


For more information on Stride or 
the location of the nearest Stride 
Dealer call or write us today. 
We'll also send you a free copy of 
our 32 page product catalog, 


Corporate Offices: 
4905 Energy Way 
Reno, NV 89502 
(702) 322-6868 


Regional Offices: 


Boston: (617) 229-6868 
Dallas: (214) 392-7070 
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What a gift for you and your friends! The extraordinary TURBO 
PASCAL compiler, together with the exciting new TURBO TOOLBOX 
and new TURBO TUTOR. All 3 manuals with disks for $99.95, 


TURBO PASCAL Version 2.0 (reg. $49.95), The now classic program 
development environment still includes the FREE MICROCALC 
SPREAD SHEET. Commented source code on disk 

* Optional 8087 support available for a small additional charge 


NEW! TURBO TOOLBOX (reg, $49.95), A set of three funda- 

mental utilities that work in conjunction with TURBO PASCAL, 

Includes; ee 

° oe FILES USING B+ TREES. Commented source code 
on dis: 

¢ QUIKSORT ON DISK, Commented source code on disk 

¢ GINST (General Installation Program) 

Provides those programs written in TURBO PASCAL with a terminal 

installation module just like TURBO'S! 

¢ NOW INCLUDES FREE SAMPLE DATABASE 


NEW! TURBO TUTOR (reg, $29.95). Teaches step by step how to 
use the TURBO PASCAL development environment—an ideal 
introduction for basic a oa Commented source code for all 
program examples on disk, oF 
These offers good through Feb. 1, 1985 
For VISA and MASTERCARD order call toll free: 
1-(800)-255-8008 1-(800)-742-1133 
(Lines open 24 hrs,, 7 days a week) | L 
Dealer and Distributor inquiries welcome (408) 438-8400 
CHOOSE ONE (please add $5.00 for handling and shipping U.S. orders) 
____ All Three-Gift Pack $ 99.95 + 5.00 SPECIAL! 
___. All Three & 8087 139,95 + 5,00 SPECIAL! 
___.._ Turbo Pascal 2.0 49.95 + 5,00 
____. Turbo Toolbox 49.95 + 5.00 
a Turoo Tutor 29.95 + 5,00 
use Tatoo 608) 89.95 + 5.00 
Check _ Money Order «VISA MasterCard... 


Cad ti Bap date: Shipped UPS 
My system is: 8 bit___._ 16 bit___ i 
Operating System: CP/M 80____. CP/M 86__§ MSDOS___. PC DOs __ 


Computer: 2 Disk Format: 
Please be sure model number & format are correct. 


CITY/STATE/ZIP; _ 


California residents add 6% sales tax. Outside U.S.A. add $15.00 (if outside of 
U.S.A. payment must be by bank draft payable in the U.S. and in US, dollars). 
Sorry. ne C.0.D. or Purchase Orders, 
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4113 Scotts Valley Drive 
Scotts Valley, CA 95066 
TELEX: 172373 
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